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12-88-1986 97:29:23 BACKUP .SRCJFASTSCAN $3.1 


= 
o 
oo 
So 
S 
o 


: 1 $0) MODULE FASTSCAN (ZTITLE Last file scan’ 

3 ¢ § IDENT = ‘v04-000' 

ous O04 1 BEGIN Be. 

ae 005 1 

: ; Gog? } i eeeeeeeeneereeeeeeeeeeeeeneeeeeeeeerereeerereererereeeeeeeeeeneeeeneeeeeees 
; 'f * 
; 9 $008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
3 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; \ pont ! :. ALL RIGHTS RESERVED. * 
° 4 * 
$ ig §bi8 1 ie ae = tthe Nd FURNISHED uae A LICENSE AND MAY BE USED AND od ty * 
$ 14 0014 1 !# Y IN ACCORDANCE WITH THE TERMS OF SUCH io AND WITH THE ® 
$ 15 0015 1 !# ONEL USION OF THe og te Sg dl NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 bo18 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 01 1 '® OTHER PERSON. NO TITLE TO AND DUNERSHIP OF THE SOFTWARE IS HEREBY te 
3 8 Bots : i. TRANSFERRED. * 
Py . t 
; $ 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $8 By ¢ : we CORPORATION. : 
; 24 0024 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $2 534 : * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. x 
° : ® 
ee pose 1 !e * 
3 $8 oe : | lata cineca icine tna 
; $9 $030 1 

; He oth 1 !4¢ 

3 ¢ 00 ; 1 | FACILITY 

ome 0033 1: Sackup/Restove 

3 34 0034 1! 

3 $2 0035 1 ' ABSTRACT 

3 $ td : This module contains. the fast file scan routines. 

; 35 0038 1 | ENVIRONMENT: 

; 9 003 1; i VAX/VMS user mode. 

.. g 041 1: 

§ ? 9h 4 : : AUTHOR: M. Jack, CREATION DATE: 19-Nov-1980 

; Soae 1 | MODIFIED BY: 

3; 645 0045 1! 

; 46 0046 1! v0O3-015 LMP0272 L. Mark Pilant, 6-Jul-1984 8:41 

3 4 Bnet : Modify BACKUP to always use a full Length FIB. 

: 49 0049 1! V03-014 LY0499 Larry Yetto 25-JUN-1984 12:36 

; 0050 1! oes ty the concealed root directory code to properly deal 

; 2} 003] : with [000000] 

; 3g 3g 1! v03-013 ACGO381 Andrew C. Goldstein 9-Dec-1983 19:43 

; «54 054 1! Fix byte count of initial MFD file name string 

: 55 bee : ieee by ACG0366) 

: 3 $638 1! v03-012 ACG0366 Andrew C. Goldstein, 11-Oct-1983 18:55 
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5 8 00 

3 38 0939 
; @& 060 
3 o Bees 
oe 
3; & 064 
; 0065 
; @& B08 
; oF 006 
; 68 0068 
3 9 0069 
3 0 0070 
3 71 0071 
; Le: 007 
pass 007 
; 0074 
.). 0075 
s 7 007 
. > ar 007 
; 0078 
; «679 0079 
; © 0080 
3 4 sind 
3 BS 5088 
; BG 0084 
; 85 0085 
; 0086 
oi a 0087 
; 8 0088 
; «6289 0089 
; 0090 
; C91 0091 
: 3 009 
; § 009 
s 69% 0094 
; 0095 
; 0096 
; «497 0097 
; 0098 
; 299 0099 
; 100 0100 
g 191 0101 
ee ‘ B16 
; 10 010 
3 104 0104 
3; 105 0105 
; 106 3108 
: 107 010 
; 108 0108 
3; 109 0109 
: 110 0110 
i 
: 113 b118 
; (114 0114 
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1-53 -1984 23:56: AX-11 Bliss-32 V4.0-74 
12-Sep-1986 $7 39:33 BACKUP .SRC PASTS ins3331 
Fix rooted directory handling to track SPARSE changes 
v03-011 ACG0325 Andrew C. Feldstein, 4-Apr-1983 15:51 
Fix header area Length validation 
v03-010 MLJ0105 Martin L. Jack, 14-Feb-1983 17:07 
Correct error in execute-only “no such file’ path. 
v03-009 ACG0313 Andrew C. Goldstein, 12-Feb-1983 16:12 
Add routine subtitles 
V03-008 MLJ0104 Martin L. Jack, By ag hl 18:51 


Correct access control bits used for index file under 

/IGNORE=INTERLOCK. Allow access to eg | directories 

via ACP a Change vbseoeee ce handling to allow copying RSX 

aroees disks. Tighten to save scanned but ie 
directories only if the selection Sa specification is ‘'*.* 

and the directory terminator is ‘‘s’' 


v03-007 MLJ0101 rtin L. Jack, 13-Nov-1982 19:46 
Correct ODS-1 Bet bd P. selection. 


V03-006 MLJ48949 Martin L. Jack, 6-Sep-1982 17:17 
Save scanned but non-selected directories only if the selection 
file specification is ‘ -. This saves space in cases where 
an incremental restore is “foatinnhens anyway. 


v03-005 MLJ0096 artin L. Jack, 24-Aug-1982 15:50 
Correct /IMAGE tite ane conflict b bug. 


v03-004 MLJ48500 Martin L. Jack, 18-Aug-1982 10:23 
Correct bad test that caused scanned but non-selected 
directories to be copied in a disk to disk operation. Also 
add a test to avoid extra accesses to directories. 


v03-003 MLJ0087 Martin L. Jack, 08-Apr-1982 16:45 
Do not truncate the index file for ODS-1 version 2 because it 
Sate ose ooeutentee to multi-header dynamically. Fix setting 
° . 


v03-002 MLJ0083 Martin L. Jack, 22-Mar-1982 13:25 
nhibit saving of scanned but not selected directories under 
/INTERCHANGE, to save space on distribution media. 


v03-001 MLJ0082 Martin L. Jack, 16-Mar-1982 18:42 
Initialize DIR STATUS before index file scan to avoid incorrect 
results from SELECT_INPUT_FILE. 


v02-011 MLJ0078 Martin L. Jack, 10-Feb-1982 15:30 
Correct error in exclusion of aliased files introduced by 


v02-010 MLJ0077 Martin L. Jack, 8-Feb-1982 15:11 
Implement er version numbers. 
v02-009 MLJ0075 rtin L. Jack, 28-Jan-1982 20:16 


Implement DIR_ VERCIA a VERLIMIT attributes to suppert version 
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Busey 4 $3: 36:33 ors Bliss-32 V4.0-74 


14-Sep-1984 


Limit handling. Add FIBSV_NORECORD to file accesses to support 
file expiration handling. 


v02-008 MLJ0063 Martin L. Jack, 22-Dec-1981 4:20 
Support rooted directories. 


v02-007 MLJ0062 Martin L. Jack, 4-Dec-1981 14:33 
Implement /INCREMENTAL. 


V02-006 MLJ0054 Martin L. Jack, 15-Oct-1981 19:26 
Support segmented directory records. Comp ine routines 
ODS1_ VOLUME ATTRIBUTES and ODS2_VOLUME_ATTRIBUTES. Remove 
COM_TMP_NOBACK, as this must be computed on every file. 
ImpTement /VOLUME. Implement /IGNORE=INTERLOCK. Integrate 
GET_VM and FREE_VM jacket routines. 


v02-005 MLJ0037 Martin L. Jack, 29-Aug-1981 16:04 
Correct file selection with /IMAGE. 


v02-004 MLJ0036 Martin L. Jack, 28-Aug-1981 17:55 
Reimplement file scan. 
v02-003 MLJ0025 Martin L. Jack, 8-May-1981 11:25 
Implement Latest-version selection. Make /RECORD restartable. 
v02-002 MLJ0018 Martin L. Jack, 7-Apr-1981 21:08 
Restore expanded string Length in input NAM block. 
v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 16:33 


Reorganize global storage. Reorganize so that index file 
processing occurs on one volume at a time to minimize global 
storage requirement. Incorporate ‘‘’slow’’ file scan into fast 
file scan so that BACKUP, not RMS, maintains directory context. 
Add attributes check on directories so that spurious 

“illegal format’ errors are not produced. 
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Fast file scan 


2 
13-Sep-1984 $3:36:23 ord, Bi iege3e V4.0-74 


4 11 BACKUP.SRCJFASTSCAN.B32;1 


s TS 0136 1 REQUIRE ‘SRC$:COMMON'; 
: 156 1 1 LIBRARY *SYSS$LIBRARY:LIB'; 
wo Rey 
ee 5 1261 1 FORWARD ROUTINE 
; 158 1 66 1 FAST_FILE_SCAN: NOVALUE, ' Scan with index file 
; 159 12635 1 SLOW FILE SCAN: NOVALUE, ' Scan without index file 
: 160 1264 1 READ-HOMEBLOCK: NOVALUE, ! Read and check home block 
; «(161 1265 1 VERIFY_HEADER, ' Check a file header 
3 166 1 66 1 PROCESS FILE: NOVALUE, ' Process one file 
: 16 1267 1 DIR_ SCAR: NOVALUE, ! Driver for directory scan 
> 164 1268 1 INIT_DIR_SCAN: NOVALUE, ' Initialize directory scan 
; 165 1269 1 RESET DIR_SPEC: NOVALUE, ! Reset selection filespec 
> 166 1270 1 FIND_REXT, ! Scan for next matching file 
; 167 1271 1 FREE_DIR_DATA: NOVALUE; ! Free directory scan context 
: 165 1398 4 
; 170 1344 1 EXTERNAL ROUTINE 
s 71 1275 «1 LIBSEXTRACT_CONCEALED: ADDRESSING_MODE (GENERAL), 
; 172 1276 1 !"Parse concealed device/root directory 
3 175 1277 1 CHECKSUM ! Compute file header checksum 
: 174 1278 1 CHECKSUM ' Compute home block checksum 
: 175 1279 1 GEN_FID RECORD: NOVALUE, i Write FID record 
; 176 1280 1 INIT NAMEBLOCK: NOVALUE, ! Initialize extended name block fields 
3 177 1281 1 VOLUME _ATTRIBUTES: ! Write volume attribute record 
; 178 1s86 1 NOVALUE, 
; 179 1283 1 SAVE_ONE FILE, ! Routine to copy one file 
; 180 1284 1 FILE-ERROR: NOVALUE, ! Signal file-related error 
3; «6181 1285 1 INIT_ATTR: NOVALUE, ! Initialize attributes area 
3 82 1286 1 LEF T_ONE ! Find leftmost one bit in a word 
; «(183 1287 1 KE“STRING, ! Convert ODS-1 filename to ASCII 
3: «(184 1288 1 INIT SEL_INFO: NOVALUE, ! Initialize selection information 
: 185 1289 1 MATCA_DIRECTORY, ! Match directory specification 
3; «6186 1290 1 MATCH_F ILENAME ! Match file name type. and version 
; 187 1291 1 SELECT INPUT FILE, i Select input file based on qualifiers 
; «188 1 3 1 TERMINATE_SCAN, ' Test termination of directory scan 
3; «6189 12935 1 FREE_VM NOVALUE, ' Free virtual memory 
: 190 1294 1 GET_9M ' Get virtual memory 
; 191 1295 1 GET~ZERO_VM, i Get and zero virtual memory 
3 19 1296 1 LIBSSIGNAL: ADDRESSING_MODE (GENERAL) ; : 
; «19 1297 1 ! Signal a condition 
: 198 1399 | 
: 196 1300 1 EXTERNAL LITERAL 
> 197 1301 1 BACKUP$_MAXVOL 
: 198 1308 1 BACKUP$~PROC INDEX, 
; 199 1303 1 ACKUP$_OPENDIR, 
; 200 1304 1 ACKUP$_OP 
: 201 1305 1 BACKUP$ READDIR, 
: 4 1308 1 BACKUP$_BA 
; 20 130 1 BACKUPS ~NOSUCHRYN, 
3; 204 1308 1 LIBS_INVFILSPE; 
BOR 
3 NE(); ! Define global common area 
07 1311 1 GSDEFINE() ! Defi lLobal 
; 208 13i¢ 1 
; 09 151 1 
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Fast file scan 18-se 1984 23: AX-11 Bliss-32 V 
12-Sep-1984 7 3g: 33 BACKUP. SRC FASTSC 
1314 1 LITERAL 
1315 1 MAX_VOLUMES= 255, : Lergest volume set 
1 ig 1 DIR BUF _COUNT= 16, ' Size of | coceeeary buffer 
: : : INDEX_BOF _COUNT=64; ! Size of index file buffer 
1 i8 1 
1 $ 1 BIND 
: 1 : MFD= UPLIT BYTE (ZASCIC ‘000000'); 
86 | 
1324 1 BUILTIN 
1 $2 1 TESTBITCC, 
1326 1 TESTBITSC, 
1327 1 CALLG, 
1328 1 ROT; 
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scan i-sz -1984 23:56: AX-11 Bliss<-32 V4.0-74 Pp 
E_SCAN = fast file scan main routine 1a-Sep-1 4 99:29:33 BACKUP. SRC IFASTSCAN.B3 37 in (3 


C= 
® 


ZSBTTL ‘FAST FILE SCAN = fast file scan main routine’ 
GLOBAL ROUTINE FAST_FILE_SCAN: NOVALUE= 


‘ee 


FUNCTIONAL DESCRIPTION: 
This routine is the driver for the fast file scan. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
INPUT_F AB - Pointer to current input FAB. 
INPUT_NAM - Pointer to current input NAM block. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL 
RVN, ' Relative volume number 
FIB: BBLOCKCF IBSC_LENGTH], ‘Fis 
FIB_DESC: vECcTORC2), ! Descriptor for FIB 
STATUS, ' Status variable 
10SB: VECTOR(4, WORD); ' 1/0 status block 


! Initialize FIB descriptor. 


! 
! 
FIB_DESCCO) = FIBSC_LENGTH; 
FIB-DESCC1} = FIB; 


: Allocate the general buffer. 


COM_FLAGSCCOM_DSBL_CHKPT] = TRUE; 
FAST_BUFFER_STZE = alg * INDEX BUF COUNT; 
FAST_BUFFER™= GET_VM(512 ®* INDEX_BOF_COUNT); 
: Loop over all volumes in the volume set. 
RVN = 1; 


BEGIN 
LOCAL 


x-11 OL iege%, 1 8°76 
FASTSCAN.832;1 
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| FASTSCAN Fast file scan 18-sep-1984 $3: 28: 33 AX-11 Bliss-32 V4.0-7 
v04 FAST_FILE_SCAN = fast file scan main routine 14-Sep-1984 BACKUP. SRCJFASTSCAN. 83 31 
3 0 1443 ! FAST_VOL_END is a pointer to a vector that varies with the number of 
3 o 1o62 volumes Tn the volume set. 

4 5 1ce8 if .RVN EQL 1 

8 4 144 THEN 

; 345 1448 4 BEGIN 

3 +8 1iep 4 INCRA A FROM FAST _VOL_BEG TO FAST_VOL_END-ZUPVAL BY ZUPVAL DO 
: 8 Mee! F = GET_ZERO_VM(.COM_1_SETCOUNT*ZUPVAL); 

: 349 14 é 4 ; 

; 50 145 END; 

s 23 1454 

3 § 1022 

3 27 1628 Initialize information from the home block. 

; 55 128 IF .FAST_STRUCLEV EQL 2 

; 356 1459 THEN 

$ 57 1460 4 BEGIN 

3 $25 1461 4 CLUSTER = .FAST_BUFFERCHM2$W_ CLUSTER]: 

3 59 1ec8 4 FAST_IMAP_SIZECTRVN=-1) = .FAST _BUFFERCHM2$W_ IBMAPSIZE); 

; 360 1463 4 BITMAP_OFFSET = -CLUSTER®4 ¢ 

: 361 ree: : FAST WOR_OFFSETL.RVU-1J ® “CLUSTER®4 + .FAST_BUFFERCHM2$W_IBMAPSIZE]; 
3 303 Pe § | 3 ELSE 

; 300 1467 4&4 BEGIN 

; 65 1468 4 CLUSTER = 1; 

4 93 1469 4 FAST_ IMAP SiZEC. RVN-1) = .FAST_BUFFERCHM1$W_IBMAPSIZE); 

: 7 1470 4 BITMAP_OFFSET = 3; 

; 368 1471 4 FAST_HDR_OFFSETC.RVN-1] = 2 + .FAST_BUFFERCHM1$W_IBMAPSIZEJ; 
; 369 ore 3 D; 

; 37 147 ; 

; 371 1474 

; Le 1002 ; Allocate memory for and read in index file bitmap. 

3 374 1477 East IMAPL ghvnetd = GET_VM(.FAST_IMAP_SIZEC.RVN-1) * 512); 

: 375 P 1478 STATOS = $Q1]0W( 

3; 376 P 1479 FUNC= 108 oF ewan” 

3 377 P 1480 3 CHAN=. INPUT_ 

3 3/8 P 1481 3 10SB= Hs 

: 379 P 148 P1=.FAST_IMAPL 1), 

$ 80 P 148 P2= EAS I IRAP iver. RVN-1) * 512, 

3 1 1484 P5=.BI P_OFFSET); 

3 8 1485 IF gstAtus inet STATUS = .-10SB8(0); 

3 B7 ee to T .STATUS 

3 4 re = SIGNAL (BACKUPS -PROCINDEX, 2, INPUT_QUALCQUAL_DEY_DESC], .RVN, .STATUS); 
; 387 1490 

3 14 re | : Read the index file header and get the EOF stored therein. 

; 390 Pp 1498 STATUS = $0]0W( 

3 91 P 1494 FUNC=I10$ Of rae” 

: 39 P 1495 CHAN=. INPUT_CH 

; 39 P 14 10S8=10SB8 

: 394 P 149 Pi= FAST CSUFFER + 512, 

: 395 P 1498 A 
% 1499 P heey _HDR_OFFSETC.RVN-1) + 1); 


| 3 

| FASTSCAN Fast file scan ise -1984 23:56: AX-11 Bliss-32 V4.0-74 Page 9 
VOe-000 FAST_FILE_SCAN = fast file scan main routine lansep- 1984 $7:39:23 EBACKUP.SRe FASTSCAN.B32;1 . (3) 
; er 1300 If _STATUS THEN STATUS = .10SB8(0]; 

; a8 1303 co” » STATUS 

; Z : 1308 SIGNAL (BACKUPS_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESC], .RVN, .STATUS); 
; 40 1305 

; 40 1 88 EOF = 0; 

; 404 150 IF .FAST_STRUCLEV EQL 2 

; 405 1508 THEN EOF = oY BOF PERT eee ce ehirat BUFFER + 512, FH2$W_RECATTRI], FATSL_EFBLK], 16) = 1 
; 406 1509 ELSE IF .FAST_BUFFERCHM2SB piRUEVERT EQL 2 

3 ret 1319 THEN EOF = ROT(.STATBLRCSBKSL_FILESIZEJ, 16); 

; 409 1312 

; 410 151 : Now scan the yvolume'’s index file hag | backwards, Look 108 for the 

; 411 1514 ! highest set bit. The maximum of the EOF mark and the highest set 

5 rat 1212 bit is taken to be the true index file EOF. 

: re 131% Z DECR J FROM .FAST_IMAP_SIZEC.RVN-1] * 128 = 1 TO 0 DO 

: 416 1519 4 IF .VECTORC.FAST_IMAPC.RVN-1], .J] NEQ 0 

3: 417 1330 4 THEN 

: 418 1521 5 BEGIN 

3 419 1366 5 EOF = MAXU( 

; 420 1523 5 -J#352 + 

: 421 1524 5§ LEFT po tyts Sod IMAPCL.RVN-1], .JJ) + 

: 422 1389 5 -FAST_HDR_OFFSETE.RVN-TJ, 

3; 423 15 $ 5 EOF); ‘ 

; 426 15827 § EXITLOOP; 

: 425 1528 4 END; 

: 426 1267 ; END; 

; 427 1530 

; 428 1531 3 

; ri 1336 ; IF .QUALCQUAL_IMAG) 

3 430 153 THEN 

3 «6431 1534 4 BEGIN 

: 432 1535 4 

3 433 1536 4 ' Read the boot block. 

> 434 1537 4 : 

: 435 P 1538 4 STATUS = $010W( 

; 436 P 1539 4 FUNC=]0$_READVBLK, 

: 437 P1540 4 CHAN=. INPUT_CHAN, 

3; 438 P 1541 4 10SB=10SB 

: 439 P 1348 4 P1=.FAST_BUFFER + 512, 

> 440 P1543 4 p2=512, 

3; 441 1544 4 =1); 

: ce 1545 4 IF .STATUS THEN STATUS = .10SBC0); 

3 «644 1546 4 If NOT .STATUS 

3 (446 1547 4 THEN 

; 445 1348 4 SIGNAL (BACKUP$_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESCJ, .RVN, .STATUS); 
3: 447 1550 4 ‘ 

; rr 133) : : If the volume is bootable, save the LBN from the boot block. 

3: 450 1388 4 FAST BOOT _LBNC.RVN-1) = -1; 

3 on) 1328 : Jf CRORCHAR( FAST BUFFER + 512 + 5) EQL 0 

: 45 1556 4 FAST_BOOT_LBNC.RVN-1) = ROT(.VECTORC.FAST_BUFFER + 512, 1], 16); 
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END; 


: Deaccess the index file. 


i 10w¢ 
P FUNC=10$_DEACCESS, 
CHAN=. INPUT_CHAN) ; 
IF .QUALCQUAL_IMAG] 
THE 
BEGIN 
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Access the bitmap file. 


CHSFILL (0, FIBSC_LENGTH, FIB); 
FIBCFIBSL_ACCTL] = .ACCTL; 
FIBLFIBSW-FID_NUM) = FIDSC_BITMAP; 
FIBCFIB$W-FID~SEQ) = FIDSC~BITMAP: 
FI FIBSW-FID"RVN] = .RVN; 


FUNC=10$ ACCESS OR IOSM_ACCESS, 
CHAN=. INPUT_CHAN, 
10SB=10SB 
P1=F1B_DESC); 
IF .STATUS THEN STATUS = .10SB[0); 
IF NOT .STATUS 


N 
SIGNAL (BACKUPS$_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESC], .RVN, .STATUS); 


Read the storage control block. 


STATUS = $01]0W( 
FUNC=10$_READVBLK, 
CHAN=. INPUT_CHAN, 

10SB8=10SB, 

P1=.FAST_BUFFER + 1024, 

P2=512, 


P3=1); 

If .STATUS THEN STATUS = .10SBCO); 

IF NOT STATUS 
SIGNAL (BACKUP$_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESC], .RVN, .STATUS); 

Deaccess the bitmap file. 

$010W( 

FUNC=10$_DEACCESS, 

CHAN=, INPUT_CHAN) : 

Generate the volume attribute record. 

IF NOT .QUALCQUAL_VOLUJ OR .QUALCQUAL_VOLU_VALUE] EQL .RVN 
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- fast file scan main routine ACKUP.SRCJFASTSCAN.B32;1 (3) 


Ss 
| S 
1 1 THEN 
ig 1 VOLUME _ATTRIBUTES( 
1 1 -FAST BUFFER, ! home block 
14 1 -FAST-BUFFER*512 i boot block 
15 1 FAST BUFFER+1024 i stored control block 
ig 1 ne [EOF = .FAST_HDR_OFFSETC.RVN-1]); 
i$ 
Access the index file. 
3 CHSFILL (0, FIBSC_LENGTH, FIB); 
FIBCFIBSL_ACCTL) = .ACCTL; 
4 FIBCFIBSW-FID_NUM] = FIDSC_INDEXF; 
5 FIBCFIBSWFID-SEQ) = FIDSC~INDEXF; 
6 FIBCFIBSW-FID-RVNJ = .RVN; 
P STATUS = $0100( 
8 P FUNC=10$ ACCESS OR IOSM_ACCESS, 
a Pp CHAN=. INPUT_CHAN, 
P 163 10SB=10S8 
1 3 Pi=F 1B_DESC); 
32 3 If .STATUS THEN STATUS = .10SB8(0); 
x 3 If NOT STATUS 
a ; SIGNAL (BACKUP$_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESC], .RVN, .STATUS); 
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' Loop for all headers in the index file. Read multiple blocks into a 
buffer and process them one at a time. 
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!' If an error occurred, read each block separately, reporting any 
errors. 


if NOT .STATUS 
THEN 
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36 

37 

38 

39 

40 4 ; 

41 4 DIR_STATUS = 0; ! Used by SELECT_INPUT_FILE 
4¢ 4 VBN7= .FAST_HDR_OFFSETC.RVN-1) + 1; 

4 4 UNTIL .VBN GTRU”.EOF DO 

44 4 BEGIN 

45 4 AL 

46 4 HEADER: REF BBLOCK, ! Pointer to header p 
“+4 3 READ_COUNT; ! Blocks to read on current iteration 
49 5 

39 2 Establish the count of blocks to read and execute the read. 
2 55 READ COUNT = MINUCINDEX_BUF_COUNT, .EOF + 1 = .VBN); 

5 P 1656 STATOS = $Q10W( 

54 P 1657 FUNC=]0$_READVBLK, 

55 P 1658 CHAN=. INPUT_ ° 

28 P 1659 10SB8=10SB 

5 P 1660 P1=,FAST_BUFFER 

58 P 1661 P2=512 *” .READ_COUNT, 

59 666 P3=.VBN); 

60 66 IF .STATUS THEN STATUS = .10SB[0); 

$ 664 

$3 

64 

65 
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BEGIN 
INCR_ XVBN FROM 0 TO .READ_COUNT-1 DO 
BEGIN 


AX-11 Bliss-32_V4.0- 


- fast file scan main routine BACKUP. SRCJFASTSCAN.B 


LOCAL 
HEADER: REF BBLOCK; ! Pointer to header 
HEADER = .FAST_BUFFER + .XVBN * 512; 


STATUS = = $010wT 
UNC=10$ READVBLK, 


Chae. TN NPuU 
10S8=10S 
Pi= HEADER, 
smart : 
P BN + eit 
IF pS tats THEN STA Tbs = .10S8(0); 
IF STATUS 
THEN. 
- CHSFILL(O, 512, .HEADER); 
END; 
' For each header, verify that it is a valid file header. 
: If it is, process it. 
HEADER = ener BUFFER; 
INCR XVBN FROM'O TO READ. COUNT=-1 DO 
BEGIN 
LOCAL 
MAP_AREA: REF BBLOCK, ! Pointer to map area 
FILE_NUMBER, i Current file number 
FILE_ID: BBLOCKCFIDSC_LENGTH]; ! Current file ID 
Get a clean file ID. 
FILE_NUMBER = .VBN + .XVBN - .FAST_HDR_OFFSETC.RVN-1); 
Hee OE Ose Nun = .FILE_NU MBER<O, 165; 
FILE~IDCFIDSB-NMX) = .FILE CMURBERCIS, 8>: 
IF .FAST_STRUCLEV EQL 2 
THEN aeiattie SEQ »HEADERCFH2$W_F id b-SEa] 
s FILE-IDCFIDSW- = -HEADERCLFH1$W_FID-SEQ); 
FILE_IDCFID$B_RVN) = .RVN 


Generate the FID record for an image mode save. 


“QUAL CUAL IMAG] AND 
(NOT Bua Pouar -VOLU] OR .QUALCQUAL_VOLU_VALUE] EQL .RVN) 
GEN_FID_RECORD(.HEADER, .READ_COUNT, .FILE_ NUMBER, .RVN); 


' Validate the header. Im ODS-2, a valid header is to be taken as 
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! Header is valid. : 
: Other processing executed only if not an extension header. 


MAP_AREA = .HEADER + .HEADERCFH1$B_MPOFFSET]*2; 
BEGIN 

IF .FAST_STRUCLEV EQ 

THEN 


L2 
ee earartat SEG_NUM] EQL 0 


ELSE .MAP_AREACLFM1$B_ER_SEGNUM] EQL 0 


E 
THEN 


3 
st file scan bese -1984 23:56: AX-11 Bliss-32 V4.0-74 Pa 3 
ST_FILE_SCAN = fast file scan main routine 12-8081 She $729 33 EBACKUP. Se FASTSCAN.832;1 - 3 
$ ' valid even if the index file bitmap shows it as available. In 
! ODS-1, a header corresponding to a clear index file bitmap bit 
° } is not to be examined. 
; STATUS = VERIFY_HEADER(.HEADER, FILE_ID); 
4 -FAST_STRUCLEV EQL 1 AND 
5 ee -BITVECTORC.FAST_IMAPL.RVN-1), .FILE_NUMBER-1) 
> STATUS = FALSE; 
5 
40 2 ' Clear the index file bitmap bit until we determine that the 
e : } header is not an extension header. 
cs BITVECTORC.FAST_IMAPL.RVN-1], .FILE_NUMBER-1] = FALSE; 
45 
28 IF STATUS 
4 THEN 
48 BEGIN 
49 
50 
3] 
33 
54 
55 
56 
57 
58 
59 
60 
e 
65 


FCH: REF BBLOCK; ! Pointer to characteristics 


64 

65 

66 ' Make sure the index file bitmap indicates that the header 
4 is valid. 

69 BITVECTORC.FAST_IMAPL.RVN-1), .FILE_NUMBER-1) = TRUE; 

71 

% Get file characteristics pointer. 

74 if .FAST_STRUCLEV EQL 2 

75 THEN-FCH = HEADERCEH?SL F ILECHAR 

% ELSE FCH = HEADERCFHISW_FILECHARI; 

78 

79 ' Evaluate file selection criteria for header. However, 


' always reject files marked for delete. If this is /IMAGE 
; mode, select all other valid files. 


if 
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v04 AST_FILE_SCAN = fast file scan main routine 1228 08- 198 $9 539333 EBACKUP. SRe FASTSCAN.B32;1 ” (3) 

¢ 785 IF .FCHCFECHSV_MARKDEL) 
6 7 THEN 
6 7 
685 7 3 
6 7 PESIN 
68 790 NIT_ATTR(.HEADER) ; 
688 791 IF .QUALCQUAL_ IMAG) 
689 6 TH AL 
690 79 ELSE NOT SELECT_INPUT_FILE(%8'001") 
691 794 END 
69 795 END 
69 ree THEN 
$88 a dA BITVECTORC.FAST_IMAPC.RVN-1], .FILE_NUMBER-1] = FALSE; 
O98 799 END; 
69 800 
698 01 
44 oe HEADER = .HEADER + 512; 

END; 

701 
70. 
70 VBN = .VBN + INDEX_BUF_COUNT; 
704 END; 
705 
706 
707 ' Deaccess the index file. 
708 ! 


09 10W( 
710 P FUNC=]0$_DEACCESS, 


CHAN=. INPUT_CHAN) ; 


RVN = .RVN + 1; 
WHILE .RVN LEQU .COM_I_SETCOUNT; 


Free the general buffer. 
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FREE_VM(.FAST_BUFFER SIZE, .FAST_BUFFER); 
FAST-BUFFER ="FAST_BOFFER_SiZE ="0; 
COM_FLAGSCCOM_DSBL-CHKPT]~= FALSE; 


: Scan all directories on all volumes. 
INCR RVN FROM 1 TO .COM_I_SETCOUNT DO DIR_SCAN(.RVN); 
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: Allocate a buffer to read file headers. 


FAST_BUFFER_SIZE = 5125 
FAST~BUFFER™= GET_vM(512); 
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: If this is /IMAGE mode, scan for and process lost files. 
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| FASTSCAN Fast file scan bese -1984 23:56: AX-11 Bliss-32 V4.0-74 Pa 5 
| VOe-800 FAST_FILE SCAN = fast file scan main routine 122805-198e $7 :39:33 EBACKUP.SRe FASTSCAN.03951 m 33 
; 739 1 IF .QUALCQUAL_ IMAG] 
; 740 1 ri THEN 9 
3; «7461 1844 peel" 
: 74 1845 INCR RVN FROM 1 TO .COM_I_SETCOUNT DO 
3 76 1 re] 4 BEGIN 
: 746 184 4 
3 ee ' rt : Scan bitmap for files not yet processed and process these. 
; or 1850 4 INCR FILE_NUMBER FROM 1 TO .FAST_IMAP_SIZEL.RVN-13*4096 DO 
3; 749 1 26 ; IF .BITVECTORC.FAST_IMAPC.RVN-1), .FILE_NUMBER-1] 
; 750 1 2 THEN 
Bees 1854 6 BEGIN 
™. ¢ 1855 6 LOCAL 
; 1838 6 NAME LENGTH ! Length of filename 
; 73h 185 6 NAME ADDRESS, i Address of filename 
; 1858 6 RSA_BESC: vecToneg}. ' Descriptor for RSA 
: 756 1928 6 FILENAME : VECTORL20,BYTEJ;! Filename buffer 
3; 757 1860 6 
; 758 1861 6 
: 759 1066 6 ' Access index file on current RVN. 
; 760 1865 6 4 
; 761 1864 6 CHSFILL (0, FIBSC_LENGTH, FIB); 
: 16 1865 6 FIBCFIBSL_ACCTL] = FIB$M.NORECORD; 
; 1866 6 FIBCFIBSW_FID_NUM) = FIDSC_INDEX ; 
3 764 1867 6 FIB Freee at 1D. SEG) = FIDSC_INDEXF; 
; 765 1868 6 FIBCFIBSW_FID_ RVN] = .RVN; 
: 766 P 1869 6 STATUS = S$Q100¢ 
; 767 P 1870 § FUNC=10$_ACCESS OR IOSM_ACCESS, 
; 768 P 1871 CHAN=, INPUT_CHAN, 
3; 769 P 1876 6 10SB=10SB 
: 770 1873 6 P1=F1B_DESC); 
: 771 1874 6 IF .STATUS THEN STATUS = .10SBL0); 
s 77 1875 6 IF NOT .STATUS 
; 77 1876 6 THEN 
3; 774 1877 6 SIGNAL (BACKUPS$_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESC], .RVN, .STATUS); 
a. OS 1378 6 
: 776 18 6 
s rr 1880 6 ' Read file header. 
; 778 1881 6 ! 
; 779 P 1Ss6 6 STATUS = $010W( 
: 780 P 1883 6 FUNC=10$_READVBLK, 
3; «781 P 1884 6 CHAN=, INPUT_CHAN, 
; ree P 1982 6 10S8=]0SB 
a P 1 6 P1=,FAST_6UFFER, 
3 «(784 P 1887 6 P2=51 
: 785 1888 6 P = FAST HOR_OFFSETC.RVN-1) + .FILE_NUMBER); 
3; 786 1889 6 IF .STATUS TREN STATUS = .10SBL0); 
s 787 139 6 IF NOT .STATUS 
; 788 1891 6 THEN 
; 789 1898 6 SIGNAL (BACKUP$_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESCJ, .RVN, .STATUS); 
: 791 1894 6 
:; 79 1895 6 ' Deaccess index file on current RVN. 
; 79 1 38 6 . 
3 794 P 1897 6 $oQ]0w( 
3; 795 P 1898 6 FUNC=10$_DEACCESS, 


.—— 
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a AN F fil 15-Sep-1984 23:56: AX-11 Bliss-32 V4.0-74 Page 16 
voL-000 FAST FILE SCAN - fast file scan main routine Va-8ep-1984 #73933 EBACKUP. SRE FASTSCANLO39;1 35 
: 1899 CHAN=. INPUT_CHAN) ; 

ie RE 

; 133 1908 6 ' Set up file ID. 

: 801 1904 6 iNPUT_NAMCNAMSW_FID_NUM] = .FILE_NUMBER; 

; 80 1905 6 INPU1 “NAMLNAMSB-FID"NMX] = .FILE-NUMBER<16,8>; 

; 80 1906 5 INPUT“NAMCNAMSB_FID-RVNJ = .RVN; 

: 804 1907 6 INPUT—NAM NAMSW_D1D “NUM = 0; 

; 805 1908 6 INPUT_NAMLNAMS$W_DID_SEQ) = 0; 

3 B08 1940 ° INPUT_NAMLNAMSW_DID_RVN) = 0; 

: 309 1312 3 ! Generate filename string from file header ident area. 

; si9 ba ° Also get file sequence number. 

: big 1915 6 if .FAST_STRUCLEV EQL 2 

: 81 1916 6 THEN 

: 814 1917 BEGIN 

; 815 1918 7 LOCAL 

Be 1 ) 

: 818 1954 ? INPUT NAMENAMSW_F 1D_SEQJ = .FAST_BUFFERCFH2$W_FID_SEQ); 
; £30 1958 7 BBLOCKC.FAST_BUFFER + .FAST_BUFFERLFH2$B_IDOFFSETJ#2, 
BONS F wane renethe?-f OEP 

. + 4 e 

: = CHSFIND_CH(FI2$S_FILENAME, .NAME_ADDRESS, %C' '); 

; is 1397 t IF 5 NEQ O”THEN NAME_LENGTH = .P - <NAME_ADDRESS; 

: 1 ELSE can 

: 828 1931 7 INPUT_NAMCNAMSW._FID_ SEQ] = .FAST_BUFFERCFH1S$W_FID_SEQ); 
2 Man PERT aSs ade Mi 

4 = 

; B34 1934 7 BBLOCKE.FAST BUFFER + .FAST_BUFFERCFH1SB_IDOFFSETJ®2, 

3; 832 1935 7 F11$w_FICENAME) - S$BYTEOFFSET(NMBSW_NAME), 

5 S37 1336 = FILENAME) AND 65535; 

: 835 1938 6 RsA_DESCCO] = NAMSC_MAXRSS; 

3 836 . 1939 6 RSA DESC 1] = .INPUT_NAMCNAMSL_RSA); 

: B36 p 1941 SDESCRIPTOR(*!ASCJ!AD"), 

; B20 P 1948 6 RSA~DESC, 

3 B41 P1944 6 INPOT_QUALCQUAL_DEV_DESC) 

- i § rn nase ksi -AbR ESE 

. s * - 

; Bea 1969 3 INI T_RAMEBLOCK (7 INPUT_NAM) ; ~ 

! Bes 1969 & 

: Be 1329 ? H Call the routine to process the file. 

: g8 1958 : SAVE_ONE_FILE(); 

: 850 195 END; 

: 851 1954 4 END; 

; 852 1955 3 END; 
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02-000 FAST_FILE_SCAN = fast file scan main routine 1228-1 975282 EBACKUP. SRe FASTSCAN.B32;1 . (3). 
3 3 19 $ END; 
§ 4 19 
; 5 19 8 
: 3 1323 Free the file header buffer. 
H 58 1961 FREE_VM(.FAST_BUFFER SIZE, .FAST_BUFFER); 
3; 859 1298 FAST_BUFFER = FAST_BOFFER_SIZE ="0; 
; 500 196 
: 1 1964 
3 Hye; 1302 } Free memory for index file bitmaps. 
s bss 1969 INCR_RVN FROM 1 TO .COM_I_SETCOUNT DO 
3; 865 1968 BEGIN 
; 866 1969 FREE_VM(.FAST IMAP_SIZEC,RVN-1) * 512, .FAST_IMAPL.RVN-1)); 
3; 867 1970 FAST_IMAPC.RVN-1) = 0; 
; 868 1971 END; 
; 869 1376 
; 870 197 
3 48 138 Free the per-volume data. 
3 154 1308 prema 6 ream FAST_VOL_BEG TO FAST_VOL_END-ZUPVAL BY ZUPVAL DO 
3; 875 1978 FREE_VM(.COM_I_SETCOUNT*ZUPVAL, ..A); 
3; 876 1979 A= 0; 
3; 877 1980 2 END; 
3; 878 1981 1 END; 


-TITLE FASTSCAN Fast file scan 
-IDENT \vV04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL_BASE: 
00000 FREE_LIST: 
00008 Input wait 
00010 REREAD_WAIT: 
00018 OUTPUT_WAIT: 


~BLKB 
00 Q JPI_UIC: .BLKB 
0024 JPI-USERNAME : 


-BLKB 
00030 JPI_DATE: 

-BLKB 
00038 JPI NODE DESC: 
00040 JP1_CURPRIV: 
00048 SYI_VERSION: 


BLK 
004C SYI_SID:.BLKB 
$0086 RWSV_HOLD_LIST: 
-BLKB 


so oOo fo oOo oO 


a 
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o ff @ @w oo 


FASTSCAN Fast file scan 18.s¢ Sep-1984 23: AX-11 Bliss-32 V4.0-74 
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| 00058 RUSV_CRCI6: 
| 00098 Rusv_auTODIN: 
000D8 RWSV_FILESET ID: 


Hoe 


64 


000€0 RUSV_VOLUME ID: 
O00EC RWSV_VOL “NUMBER: 
OOOEE RwSV "SEG" NUMBER: 
OOOFO RWSV_FILE NUMBER: 
000F4 RWSV_SAVE QUAL : 
OOOF8 RWSV_SAVE_FAB: 
O00FC nusvCHAi 
00100 RWSV_XOR_BCB: 
00104 RWSV_IN_ iea: 
00108 RWSV_IN_SEQ 0: 
0010¢ ausv_IN.iok SEQ: 
00110 RUSV_IN_XOR RFA: 
00116 RWSV_LOOKAHEAD: 
00117 RwSV_ xorsiie 
00118 RWSV_IN_ GROUP. $I 
0011C RWSV_IN_ -epheRs 
OO11E RWSV_IN_ “HBRGRE 
00120 RWSV_IN -ORGERR: 
00128 RWSV_IN_VBN: 
0012C RWSV_IN_VBN 
00130 RwSV -ALLOC: 

00134 RWSV_EOF: 

00138 RWSV_OUT “sta: 
0013¢ RWSV_OUT_VBN: : 
00140 RWSV_OUT_BLOCK_COUNT: 
00144 RWSV_OUT ERRORS: 
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E: 
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ro 
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1Soseoctgee 28:56:55 


-BLKB 
00146 RWSV_SEQ a 
00148 RWSV_OUT_GROUP_COUNT: 


LK 
00149 RwSv PADDING: 
Q014C QUAL: _.BLKB 


001BC COM_SSNAME: 


-BLKB 
0014 COM_VALID_TYPES: 


001C6 COM_FLAGS: 


»BLK 
0018 COM_PADDING: 


~BLK 
001¢9 COM_BUFF COUNT: 
OO1CA COM_1_SETCOUNT: 
001CB COM_O_SETCOUNT: 
-BLKB 
001CC¢ COM_1_STRUCNAME : 
00108 COM_O_STRUCNAME 
001E4 COM_O_BSRDATE: 


-B 
OO1EC ALT ~SSNAME: 
0020C INPUT_FUNC: 


LK 
00200 INPUT RTE: 


~BLK 
0020E OUTPUT FUNC: 
0020F 


00214 INPUT FLAGS: 


LK 
00216 INPUT_PADDING: 


BLK 
00218 INPUT_FAB: 
KB 


LKB 


BL 
0021C INPUT_NAM: 


00220 INPUT_BCB: 
00224 INPUT_QUAL : 
00228 INPUT_BAD: 


BLK 
0022C INPUT_BLOCK: 


FAST _STRUGLEY: 
00210 INPUT_BEG: 1 
00210 INPUT =CHAN: 


—_ 
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oe «ww 2m we Se ae cee te 
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00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 
00268 
0026C 
00270 
00290 
00290 
00290 
00294 
0029C 
002A4 
002A6 
002A8 
002A8 
002AC 
OO2AE 
00280 
00284 
00288 
002BC 
002Cc0 


4 
13-Sep-1964 28:56: 
INPUT _MAKBLOCK: 
INPUT “weotae Oo: 
INPUT _NAMEDESC: 
INPUT _STATELK: 
INPUT _HOR BEG: 
INPUT “cnesate: 
INPUT _REVDATE: 
INPUT _EXPDATE: 
INPUT_BAKDATE : 


-BLKB 
INPUT_F ILEOWNER: 


INPUT_FILECHAR: 
INPUT_RECATTR: 

BLK 
INPUT_HDR_END: 
INPUT_END: 

-BLKB 
INPUT_PROC_LIST: 

.BCKB 
INPUT PLACEMENT: 
INPUT _VBN List: 
INPUT PLACE LEN: 
INPUT PADDING. 2: 
OUTPUT BEG: 
OUTPUT -CHAN: 
OUTPUT Fi AGS: 
OUTPUT PADDING: 
OUTPUT _FAB: 

LKB 

OUTPUT NAR: 
OUTPUT BiB: 
OUTPUT QUAL : 
OUTPUT BAD: 
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roe 
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002¢4 OUTPUT BLOCK: 
002C8 OUTPUT_MAXBLOCK: 
002cC OUTPUT “pEVEEDM: 
002D4 OUTPUT “AiTBUF: 
00364 OUTPUT END: 
00364 LIST_TOTFILES: 
00368 LIST ~rorsite: 
0036C VERIFY, FAB: 
00370 VERIFY use. COUNT : 
00374 vERIFY_ QUAL: 
00378 COMPARE_8CB: 
0037C FAST BUFFER: 
00380 FAST “purteh eizE. 
00384 FAST_RVN: = 
00385 FAST_PADDING: 
00386 DIR _vervints. 
00388 FAST_VOL “Bee: 
00388 FAST_IMAP Size: 
0038C FAST_IMAP: 

00390 FAST_HOR “OFFSET: 
00394 FAST_BOOT_LBN: 
00398 FAST_VOL_ ND: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 

0030 JOUR_WIBLES 
GO3A4 Jour. eFBiK: 
003A8 JOUR_INBLK: 
OO3AC JOUR “FrBiTE 
OO3AE JOUR_INBYTE: 
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= 
= 


MPR eReR ROR SF FR ON @ oo BR RR ROHR RF OO 


AX=11 Bliss-32 V4.0-74 
BACKUP. SRCJFASTSCAN.B32;1 
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00380 JOUR “struct c evs" 


00382 
00383 
00384 
00386 
00388 
0038C 
003c0 
003¢4 
003¢8 


003CC 
003c¢C 


00300 
00304 

00308 
003E0 
0038 
003E9 
OO3EA 
0038 
0O3EC 
0052C 


0790 
0794 


JOUR. “counts 

JOUR “REVERSE. 
JOUR_EXSZ. % 
JOUR “PADDING. 


LK 
CHKPT HIGH ty 


CHKPT LOW SP: 
CHKPT _stieke 
CHKPT vais 
CHKPT “statue. 

-BLK 


:.BLKB 
DIRS “DEV. DESC: 
DIR_SEL PIR: 
DIR_SEL_NTV: 

LK 

DIR_STRUCLEV: 
DIR_LEVELS: 

-BLK 
DIR_FLAGS: 

BLK 
DIR_STATUS: 
DIR_STRING: 
DIR_STACK: 

.BL 
DIR_SP: .BLKB 


DIR-SEL LATEST: 
-BLK 


798 DIR 


00 
00798 
0076C 


INPUT_MTL: 


8 
007CO OUTPUT_MTL: 


007¢4 


LK 
007C8 CURRENT_VCB: 
-BLKB 


LK 
CURRENT ATL: 


END: .BLKB 
DIR SCANLIMIT: 


- =—- —- — @© wr FHF OF F Ff fF FW KH —= = HH 


oa ae ae 


Vbe-000" 


5E 90 
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007CC CURRENT_WCB: 


33 UBAckUPeSme SPASTSCAN.030; 1 


aod 


<7 


re i 


.BLKB 4 : 

007D0 ACL_FIB_DESCR: F 

LK 8 3 

0708 ACL_FIB: -BLKB 64 : 

0818 ACL“LENGTH: ; 

.BLKB 4 : 

0081C ACL BUFFER: | we ; 

00820 CRYP_IN_CONTEXT: | ; 

00824 CRYP_OU_CONTEXT: | ; 

00828 CRYP_DA_CONTEXT: | ; 

00B2¢ CRYP_DATALENCIV: : 

00834 CRYP_DATA CODE: : 

00838 CRYP_DATA KEY: 2 3 

00840 CRYP_DATA Iv: ‘ ; 

00848 CRYP_DATA_CKSM: : 

-BLKB 4 : 

-PSECT CODE,NOWRT,2 

30 06 00000 P.AAA: .ASCII <6>\000000\ : : 
4121 90007 P-AAC: -ASCII \!AS TIAD\ ; ; 
000008 00010 P.AAB: ‘LONG 8 : : 
000000" 00014 "ADDRESS P.AAC ; ; 
MFD= P.AAA : 

.EXTRN LIBSEXTRACT CONCEALED : 

-EXTRN CHECKSUM, CA 3 

SEXTRN GEN FID RECORD. INIT_NAMEBLOCK 3 

~EXTRN VOL OME tii TTR 3 

“EXTRN SAVE_ONE_FILE, FILE_ERROR ; 

eEXTRN INIT-ATTR, L 3 

SEXTRN MAKETSTRING, INTT _SEL_INFO 3 

SEXTRN MAT TCR DIR RECTOR : 

“EXTRN MATC FILENAME. SELECT INPUT_F ILE ; 

"EXTRN T RAIRATE SCAN FREE_VA : 

-EXTRN GET_VM, GET_ZERO : 

“EXTRN LIBSSIGNAL “bickors _MAXVOLS : 

-EXTRN BACKUP$_PROC INDEX ; 

“EXTRN BACKUPS"OPENDIR : 

“EXTRN BACKUPS"OPENIN, BACKUP$_READDIR : 

“EXTRN BACKUP$"BADDIR, BACKUPS ~NOSUCHRVN : 

“EXTRN LIBS$_INQFILSPE. SYS$Q100 : 

~EXTRN SYSS$FAO 3 

OFFC 00000 ENTRY resaro ski Save R2,R3.R4.R5,R6,R7,R8,- ; 1330. ; 
AE 9E 00002 MOVAB us TET : : 


H 4 
ile scan 15-Sep-1984 23:56: AX-11 Bliss-32 V4.0-74 Pa 4 
ILE_SCAN = fast file scan main routine 12-8081 $84 $7 :39:23 BACKUP SRESFASTSCAN.03951 - 3 
8 AE 40 8F 9A 000 MOVZBL #64, FIB_DESC : 1369 
AE 30 AE 4 MOVAB FIB, FIB-DESC+4 : 13 3 
999000 ' €F 4 F 1 BISB2 #64. COM~FLAGS + 137 
000000" EF 00 F 3¢ 0001 MOVZ7WL ff 3h , FAST BUFFER_SIZE ; 1376 
E 000 8F 3¢ 1 MOVZWL #32768, <(SPY + 137 
000000006 1 FB 00026 CALLS #1, GET_vM : 
00000000" EF 0 DO 00020 MOVL RO, FAST_BUFFER : 
8 1 p 0 MOVL. #1, RVN F 1382 
00 6E ‘ 00 00 7 1$: MOVCS #0. (SP), #0, #64, FIB : 139 
56 00200109 F D itt MOVL #2097408, ACCTL : 1398 
9 AE 6 D 0047 MOVL  ACCTL, FIB + 1399 
AE 00010001 F D 4 MOVL #65537 F 18+ + 1400 
8 AE 8 BO 0005 MOVW  RVN pipe : 1408 
14 AE 00090008 8F D0 0005 MOVL #589832, ATR_DESC + 140 
18 «AE OC AE 9E 0005 MOVAB STATBLK, ATR-DESC+4 t 1405 
1€ AE D4 00064 CLRL  ATR_DESC+8 + 1406. 
7E D4 90067 CLRL —_ = (SP) t 1412 
18 AE 9F 00069 PUSHAB ATR DESC : 
7E 7C 9006¢ CLRQ = = (SP) ; 
7E D4 0006 CLRL = = (SP) F 
3C = AE. OOF «(0007 PUSHAB F1B_DESC : 
7E 7C 0007 CLRQ = = (SP) : 
40 AE 9F 00075 PUSHAB 1058 : 
7E 72 BF 9A 00078 MOVZBL #114, =(SP) ; 
00000000' EF DD 0007¢ SHL  INPUT_CHAN : 
000000006 00 OC FB 00084 CALLS #12, SYS$Q10W ; 
SA 50 00 00088 V : ; 
04 SA 9 O008E BLBC STATUS, 2$ + 1413 
5A 20 AE 3C 00091 MOVZ2WL I0SB, STATUS : 
0000025c BF SA D1 90095 2s: CMPL TATUS, #604 > 1414 
52 12 0009¢ BNE $ ; 
00 6E * 00 2c 9009 MOVCS #0, (SP), #0, #64, FIB > 1417 
56 00200000 8F DO O00A7 MOVL #2097152, ACCTL : 1418. 
30 AE 00200000 8F DO OOOAE MOVL #2097152, FIB £1419, 
34 AE 00010001 8F 00 000B6 MOVL #65537, FIB+4 : 1420 
38 AE 58 BO O00BE MOVW VN, Fi : 1422. 
7E 04 000C CLRL = = (SP) : 1428 
18 AE 9F 000C4 PUSHAB ATR_DESC : 
7E 7C 000C7 cLRQs : 
7E 04 00009 CLRL ; 
3 OA 9 000¢B PUSHAB FIB_DESC ; 
7E 7C 000¢ CLRQ = = (SP) : 
40 AE 9F 000D PUSHAB 105 ; 
7E 72. 8F 9A 0000 MOVZBL #114, -(SP) : 
00000000° EF DD 000D PUSHL INPUT_CHA : 
E D4 000DD CLRL. = (SP) : 
000000006 00 ¢ FB OODF CALLS #12, SYSSQI0W ; 
SA 0 D OES MOVL STATU : 
7 SA 5 E BLBC STATUS, 4$ : 1429 
i 20 AE ¢ OOEC MOVZWL 10SB, STATUS ; 
1B SA EB OOOFO 33: BLBS . >$ : 1431 
0500 =s«BF a F3 4$: PUSHR #*M<R8,R10> : 1433 
7E 00000000" EF 10 ¢ of ADDL3 #16, INPUT_QUAL, -(SP) E 
02 DD OOOFF PUSHL #2 ; 
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| 000000006 
0000v 


7E 
000000006 


000000006 


7E 00000000" 


| 
| 


_ 
te 

ow 

oof 


file scan main routine a 


000000006 or DD 00101 PUSHL 
5 FB 00107 CALLS 
00000000" EF DD QO10E 5$ PUSHL 
DD 00114 PUSHL 
ff 4 116 CALLS 
1 D 118 CMPL 
A 12 0011 BNEQ 
26 £88 0008 * €F QE 001 MOVAB 
0000000" Fe 7 1 MOVAB 
5 11 00) BRB 
50 00000000" EF 9A 00150 6$: MOVZBL 
5 ¢ 78 81 ASHL 
0 FB 001 CALLS 
8 0 00 0014 MOVL 
52 01 Bie 7$: CMPL 
E6 18 00148 BLEQU 
54 00000000° EF D0 QO14A 8$: VL 
2 44544 a DE 00151 MOVAL 
1 QOOOOOOO'FF48 DE 00159 MOVAL 
02 00000000" EF 91 00161 CMPB 
19 12 00168 BNEQ 
50 OE A4 Hs Ba tea MOVZWL 
55 20 AS OC 5195 MOVZWL 
A3 55 4 0017 MOVL 
50 98 8 00176 ASHL 
52 D6 OO17A INCL 
Al 6540 DE 0017C MOVAL 
12 11 00181 BRB 
50 01 DO 001835 9$: VL 
AS 64 3C 00186 MOVZWL 
52 03 ge 0018A a 
Al 64 3C 0018D MOVZWL 
Al og CO 00191 ADDL2 
54 00000000°FF4 BF 00195 10$: MOVAL 
A3 09 00190 ASHL 
00 01 FB OO1A2 CALLS 
At 50 DO 001A9 MOVL 
7E 7C QO1AD CLRQ 
7E 04 OO1AF CLRL 
52 0D 00181 PUSHL 
50 00000000°FF4 bE 00183 MOVAL 
AO 09 01 ASHL 
50 enesonee" FF48 DE OO01C MOVAL 
AO bd 1¢ PUSHL 
7E 7C QO1CB CLRQ 
40 AE OF Bai C8 PUSHAB 
1 0d 00100 PUSHL 
00000000" cf DD 138 PUSHL 
E 04 0010 CLRL 
90 f F 1DA CALLS 
A DO OO1E1 VL 
? A f O1E4 BLBC 
A 20 =AE 5 O1€7 MOVZWL 
8 SS E 1B BLBS 
0500 F if 11$: PUSHR 
EF 10 ¢ 1F ADDLS 
DD OO1FA PUSHL 


=198¢ 97:58:53 YeAcnUPeSRe SrAsrscin.05 


ree tess PROC INDEX 
NA 
ue BUFFER 
READ. HOMEBLOCK 
Rit 


FAST_VOL_BEG, R2 
FAST-VOL[END=4, R3 
C gn cot RO 


OM_I 
ai: Ge ef jieRO. vM 


6 

FAST puEFER 

arAsT Bre PECAN] RS 

aFAST -hoR oF FSETCRVNS, 1 

FAST_STRUCLEV, 

14(R4), CLUSTER 

32(R4). R 

RS, -4(R3) 

#2, CLUSTER, BITMAP_OFFSET 

BITMAP _OFFSET 

paca, -4(R1) 

CLUSTER 

(nh ) 
BITMAP OFFSET 

, -4(RT) 


-4(R 
af ist IMAPCRVN], R4 
ye oun R3), =(SP) 


. 6 
RO oF RD 
~($p) 
(SP) 
BITMAP_OFFSET 
aFAst char. SIZECRVNI, RO 
aF ist InaPtavnd, RO 


10> 
a6, INPUT QUAL, ~(SP) 
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| FASTSCAN Fast file scan bes -1984 256: AX-11 Bliss-32 V4.0-74 p 6 
the FAST_FILE_SCAN = fast file scan main routine 14-Sep-19 4 $7 :39:23 YBACKUP-SRE FASTSCAN.B 3.1 — 3 
000000006 8F DD O01F PUSHL CKUP$_PROC INDEX ; 
| 000000006 00 05 FB oe CALLS am LIB$SIGNAL pee 
43 pb, CLRL -(SP) : 
a x“ 50 00000000°F F 48 F 0 9p mOVA aFAST HDR OFF SETCRVNI, RO : 
7E 9200 F 1 ° 1A MOVZWL #313, =(SP : 
7E 00000000" €F 00000200 i ci 0 If ADDL S #512. FAST_BUFFER, =(SP) : 
40 AE OF 0 D PUSHAB 1088 ; 
31 OD PUSHL #4 ; 
00000000" f DD 0 PUSHL INPUT CHAN : 
000000006 90 oC FB 023A CALLS #12, SYS$Q10W F 
A DO 00241 MOVL , STATU : 
07 SA 5 44 LBC TATUS, 13$ + 1500 
A 20 AE 3C 00247 MOVZWL 10SB, STATUS : 
1B 5A E8 00248 BL Bs TATUS, 14$ : 1501 
0500 8F 6B 99 4 13$: USHR #*M<RB.R10> : 1503 
7E 00000000" €F 19 ci 90 32 ADDL S #16, INPUT_QUAL, -(SP) ; 
000000006 8F DD 00 3¢ PUSHL #BACKUP$_PROCINDEX ; 
000000006 00 05 FB 00 62 Mos CALLS 5, LIBSSIGNAL ae 
50 00000000" EF 00 8056 . wOVL FAST_BUFFER, RO : 1508 
02 00000000" EF 9 ne COPE FAST_STRUCLEV, #2 ; 1507 
50 o21c CO 19 9C 00278 ROTL #16, 540(RO), RO : 1508 
57 FF Ad H 00281 MOVAB 71 (RO). EOF ; 
02 0c A 3 09 er 15$: cae 12(R0), #2 2 1509 
57 10 aE 10 9C 00 8p ROTL #16, STATBLK+4, EOF : 1510 
53 00000000'FF48 DE 00 2 16$:  MOVAL aFAST IMAP _SIZECRVNI, R3 : 1517 
eo a a a 7 
9 11 OeAe BRB 19$ : 
50 00000000°F F 48 DE 002A4 17$:  MOVAL @FAST_IMAPCRVN], RO : 1519 
50 FC B04 i O2AC MOVL a@-4(RO)CJJ, RO ; 
A 1 BI BEQL 19$ : 
53 52 e3 78 00 BS ASHL #5, -J, RB + 1523 
000000006 0 ye 80 ee TT uertone a 
51 98 5 cf 6 ff ADDL3 RO, SF Ri : 1533 
20 00000000" FF 48 DE 0 Ch MOVA af Ast HDR OF FSETLRVNJ, RO 3 15 
57 51 01 002D CMPL RI, EOF : 1526 
; 0 : 
57 1 0 6 D8 18$ MOVL 1, EOF ; 1532 
03 11 00208 BRB 20$ > 1521 
C4 é F4 00200 19$: SOBGEQ J, 17% : 1517 
74 00000000" EF g gi 0 EO 20$: BBC #%, QUAL+10, 238 : 1532 
E 7C O02E8 CLRQ = (§P) > 1544 
7E 1 7D 0 EA MOVa = #1, =(SP) : 
7E 9200 a 3C ED MOVZUL 312. (SP) : 
7E 00000000" EF 00000200 8F C1 O02F ADDL3 #512. FAST_BUFFER, ~(SP) : 
| 


a 


] 


<" 
oom 


Page 27 
. “74 3 
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15-Sep-1964 $3: 36:33 EBACKUP-SRe FASTSCAN.O39 
Fast file scan fast file scan main routine 14-Sep =(SP) é 
FASTSCAN FAST_FILE_SCAN = fas 7E 7 SHHAB 1088 ; 
pe 40 AE OF 0 PUSHL R49 ; 
| Ng ryt Tay co 2 
‘ R - ; 
| eeoseuee® Ff D4 00308 ye ai2,, syssoi0w ; 1945 
000000006 90 5b 1S BLae «STATUS. 91S * 1546 
| , A 7 MOVZWL 10SB8, STATUS * 1548 
H 20 AE i \A BLS, STATUS. ges ; 
| ” 0500 ar BB 3 vice ADDL no. INPUT_QUAL, =(SP) ; 
: 10 (1 SH # x 3 
7E 00000000" EF 5 bp p , PUSHL #BACKUPS PROC INDE : 1553 
ener: 5 FB 00885 228:  mouAL @PAst BOOT LBNCRVNJ, R 1556 
FCO ' EF 06 09 TSTB 517¢ : 1556 
rion be88 67 13 00333 OTL Aig, S16(R1), =4¢ROD en 
yo FE Roser oss, OAK Bs, ; 
FC AO = 0204s 1 we Pe oosee ORG mt 4: ; 
fe fe gosh = Etna E86) 
7E ?C 0036 MOVQ #52, =(SP) ; 
7 34 70 00564 PUSHL INPUT _CHAN see 
00 a £0 ay eas #3, “QUAL*10,. 248 : 1573 
0006 0 8 : 
03 90000000" EF 0107 31 00381 248: MOVCS #0, (SP), #0, #64, FI : 1574 | 
E : 
Seg gE BE BE Hill tho Be 
3 AE 00020002 BE a0 3 ia Ovi nt3b) oR 
7E 7C CLRQ = ; 
9C -(SP) : 
rf 34 09 oF SUSHAB FIB DESC ; 
xc ME Ot BORA BUSHAB 1088 
AE OF Bah MOVZBL #114, -(SP) : 
. 72 BF OA si PUSHL INPUT _CHAN 
00000000" fF BD Bp zac fits wis, syssarow : 1583 
c FB O0sae ROWE” RO: “STATUS! ao 
~ & , gEBe Bh lh 1s 
20 AE BLB amcRBRIO> : 
is 0500 iF : 8 298: ADOLS 16s INPUT QUAL, ~(SPD 
s 0 ¢ C SHL s ; 
7 00000000" EF ee : BD 00304 PUSH #BACKUPS PROC INDE : 1597 
00000 FB 0030 : ; 
000000006 00 ; 7¢ es 26$: nova #i, (SP) 
7 01 7D 003E 
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ot 


| 
7E 2 F 3C OO3E8 MOVZWL #512, =<(SP) : 
| 7E 00000000" EF ooo0dses er gi ED ADDL ni08t, FAST_BUFFER, (SP) : 
| 40 AF oF B PUSHAB 10SB ; 
| 31 DD 003F PUSHL #49 ; 
00000000" EF DD 004 PUSHL INPUT_CHAN : 
E D4 004 CLAL sisP) : 
000000006 90 i FB 408 CALLS 4} . $YS$Q10W : 
7 A 5 at BLBC STATUS, 27$ : 1598 
A 20 AE ¢ 1 MOVZWL 10SB, STATUS ; 
B A E 0419 BLB STATUS, 288 + 1599 
0500 8F 6B 0041C 27% PUSHR #*M<RB.R10> + 1601 
7E 00000000" EF 19 ci 04 6 ADDL #6, INPUT_QUAL, -(SP) : 
000000006 ge DD 0042A PUSHL #BACKUPS PROC INDEX : 
000000006 00 5 FB 004 0 CALLS #5, LIBSSIGNAL : 
— 7¢ 0 437 28%: CLRO 0. = ( §P) : 1608 
7E 7C 00439 CLRQ = = (SP) F 
7E 7C 00438 CLRQ ss =( SP) : 
7E 7¢ 904 CLRQ  =<(SP) : 
7E 34 7D 0043F MOV #52, -(SP) : 
00000000' i DD 00449 PUSHL INPUT_CHAN : 
E D4 0044 CLRL. = (SP) : 
000000006 00 OC FB 0044A CALLS #12, SYS$Q10W ; 
0B 00000000" EF €9 00451 BLBC QUAL+14, 29$ + 1613 
58 00000000" EF 08 90 FD 00458 CMP ZV #0 #8, QUAL+79, RVN : 
50 00000000'FF48 DF 00463 298:  MOVAL a@FAST_HDR_OFFSETCRYNI, RO + 1619 
7E 57 FC AO C3 00468 SUBL =-4(ROY, EOF, -(SP) : 
50 00000000" EF D0 00470 MOVL FAST_BUFFER. RO > 1618 
0400 CO 9F 00477 PUSHAB 1024TRO) : 
0200 CO 9F 00478 PUSHAB 512(RO) : 1617. 
50 DD 0047F PUSHL RO : 1616. 
000000006 00 04 FB 00481 CALLS #4, VOLUME_ATTRIBUTES : | 
0040 8F 0 6E = 00 2c 00488 308:  movcS #0, (SP), BO, #64, FIB > 1625 
30 AE 56 D0 $0251 MOVL ACCT FIB > 1626 | 
34 AE 00010001 8F DO 00495 MOVL #65537, FIB+4 + 1627 
38 SOA 5B 80 049 MOVW  RVN, FiB+8 : 1629 | 
7E 7C OO4A CLRQ = =(SP) + 1634 | 
7E 7C 004A CLRQ  =(SP) : 
7E D4 004A5 CURL -(SP) F 
3¢ AE F O4A7 USHAB F1B_DESC : 
E 7C OO4AA CLRQ = = (SP) ; 
40 AE 9F O04AC PUSHAB 10SB : 
7E ¢3 BF 9A OO4AF MOVZBL #114, -(SP) : 
00000000' EF DD 0048 PUSHL INPUT_CHAN F 
E D4 0048 LRL (sp) : 
000000006 90 FB 048 CALLS #12, SYS$Q10W ; 
A DO 004¢ VL 0, STAT ; 
7 A 5 Que LBC STATUS, 31$ : 1635 
A 20 AE ¢ 4C MOVZWL 10SB, STATUS ; 
1B A £8 004CC BLBS STATUS, 32$ : 1636 
0500 8F 6B OAc 31$:  PUSHR #*°M<RB-RIO0> > 1638 
7E 00000000" EF 0 C1 00403 ADDLS #16, INPUT_QUAL, -(SP) : 
02 DD 00408 PUSHL #2 : 


-———_————— 
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v04 FAST _FILE. SCAN - fast file scan main routine 14= $071 38e $7 :28:25 YBACKUP SRE IFAS TSCAN 03 31 re 3 

000000006 DD 0040 PUSHL ACKUP$_PROC INDEX ; : 

000000006 00 gE FB rh: CALLS A LIBSSIGNAL : ; 

99000000" EF 94 OO4EA 32$: CLRB  DIR_STATUS + 1644 ; 

50 0000'FF48 DF 4FO MOVAL @FAST_HDR OFFSETCRVNI, RO + 1645 ; 

59 FO OA 01 f GF ADDLS #1, -&(ROJ, VBN : ; 

$f 01 «AT F 4FD MOVAB 1(R7), (SPS + 1655 ; 

33 : 1 33$:  CMPL BN, EOF + 1646 F 

3 18 BLEQU 4$ : : 

0 6£ ” $ 3 509 34$ SUBL3 oon (SP), RO : 1655 

00000040 8F 0 D1 00500 CMPL R0 "164 : : 

4 18 0514 BLEQU 35$ : : 

50 40 8F 9A 00516 MOVZBL #64, RO : | ; 

58 0 00 051A 35$:  MOVL RO, READ_COUNT : ; 

7E 7C 0051D CLRO 20s = ¢ §P) : 1662 ; 

43 D4 OOS iF CLRL = = (SP) : | F 

7 bp 0521 PUSHL  VBN : F 

7E 58 09 78 00523 ASHL #9, READ_COUNT, -(SP) : : 

00000000° i bp 00527 PUSHL FAST BUFFER : : 

—E 7C 0052 CLRQ.  =(SPY : : 

40 AF 9F 0052F PUSHAB 10SB : : 

31 DD 005 2 PUSHL #49 : ; 

00000000° EF DD 00534 PUSHL INPUT_CHAN : F 

E 04 OOS3A CLRL ~ : 3 

000000006 00 C FB 005 ¢ CALLS #12, SYS$Q10W ; : 

5A 6 DO 0054 MOVL RO, STATUS : ; 

07 SA & 00546 BLBC STATUS, 36$ + 1663 : 

SA 20 AE 3¢ 0049 MOVZ2WL 10SB, §TATUS : | ; 

4E SA €E8 00540 BLBS ATUS, 40$ + 1669 ; 

56 01 CE 00530 368: MNEGL 8 > 1672, : 

45 11 0055 BRB ; : 

50 56 09 78 00555 37$ ASHL. #9, XVBN, RO : 1678 F 

52 50 00000000° cf ci 00559 ADDL3 FAST_BUFFER, RO, HEADER : | : 

E 7C 00561 CLRQ = =(SPY > 1685 | : 

D4 00563 CLRL = = (SP) : | ; 

6649 9F 00565 PUSHAB (XVBN)CVBNI ; : 

7E 0200 af 3¢ 00568 MOVZ2WL #512, -(SP) F | ; 

2 BD 00560 PUSHL HEADER : | : 

7E 7C O056F CLRQ.  =(SP) : ; 

40 AE 9F 00571 PUSHAB 10SB : ; 

31 DD 00574 PUSHL #49 : ; 

00000000" EF DD 00576 PUSHL INPUT_CHAN : ; 

E 04 0057¢ CLRL. = (SP) : | : 

000000006 90 o¢ F Ooze CALLS #12, SYS$QI1OW : : 

A D 8 VL 0 STATUS : : 

7 SA : 0988 STATUS, 38$ > 1686 : 

20 AE ¢ 05 MOVZWL 10SB, STATUS ; : 

08 SA ; 58F BLBS TATUS, 39$ > 1687. ; 

0200 8F 00 6 09 rd 292 38$:  MOvCcS #0, (SP), #0, #512, (HEADER) > 1689 ; 

87 56 $6 F 9A 39$:  AOBLSS READ_COUNT, XVBN, 37S : 1672 | : 

2 00000000' EF D 9— 40$:  MOVL FAST BUFFER, HEADER : 1697 | : 

54 a } cf A MNEGL #1, RVBN > 1698 : 

51 59 4 (i aA 41$: ADDL3 XVBN, VBN, R1 : 1708. : 

20 00000000" FF48 Of 3A MOvAl @FAST_HDR OFFSETCRVNI, RO : 3 

53 1 FC 6A OC B7 SUBL3 -4(ROT, RT, FILE_NUMBER ; : 


4 
FASTSCAN Fast file scan 18.se -1984 23:56: AX-11 Bliss-32 V4.0-74 P 
02-050 FAST_FILE_SCAN = fast file scan main routine 1a-8ep-19 4 $7539 :33 Brckup SReIFAST SCAN. 351 wie? Aid 
04 A 53 BO 0058 MOVw *FILE ER, FILE_ID : 1709 
50 53 - 05 1 i EXTZV W18, a8 FILE NUMBER, RO + 1710 
0 00000000' FF $ ¢ cMPB FAST_STROCLEV, #2 : 1711 
06 AE 0A A 06 bg mov 1O(HEADER), FILE_1D+2 : 1712. 
06 AE 046 =A 80 09 gs: MOVW 4 (HEADER), FILE_1D+2 ¢ 1713) 
08 AE 5 0 Dg 43$: MOVB y , FILE ped > 1714. 
25 00000000" EF E1 005 BBC #3, QUAL+T0, 45$ : 1720 
4 DS OOSEA TSTL XVBN 1721, 
0B 00000000" fF eS ooseE Sa? Sols, 448 1722. 
58 00000000" EF 08 0 FD O35 CPZV 0, #8, QUAL+79, RVN : | 
0108 8F 8B 0606 44%:  PUSHR #M<R3,RB> : 1724! 
0804 8F BB 006 PUSHR #*M<R2.R11> : 
000000006 00 4 FB 00608 CALLS #4, GEN_FID_RECORD ; | 
04 AE OF O060F 45$:  PUSHAB ID : 1732. 
52 DD 00612 PUSHL HEADER : | 
0000v CF 02 FB 00614 CALLS #2, VERIFY_HEADER : | 
Sa 50 pO 00619 MOVL RO, STATUS ; | 
01 00000000" EF 91 0061¢ CMPB =—s- FAST_STRUCLEV, #1 t 1734) 
13 12 006 BNEQ : 
50 00000000'FF48 DE 006 5 MOVAL @FAST_IMAPCRVNJ, RO + 1735) 
51 FF OAS 3 0620 MOVAB 1 R ; 
02 FC «BO 51 £0 00631 BBS Ri, a-4(RO), 46$ F 
SA D4 00636 CLRL = STA : 1737) 
50 00000000'FF4 DE 00638 46$:  MOVAL @FAST_IMAPCRVN], RO : 1743) 
53 07 0064 DECL R ; 
00 FC BO 53 ES 0064 BBCC R3, a-4(RO), 478 : | 
5E SA £9 00647 47$:  BLBC STATUS > 1746 
51 01 A2 9A 0064A MOVZBL (HEADER), R1 : 1753) 
51 6241 3B O064E MOVAW (HEADER)CR1J, MAP_AREA ; | 
55 04 0065 CLRL RS : 1756 | 
02 00000000" EF 91 00654 CMPB  =s FAST_STRUCLEV, #2 : | 
7 12 00658 BNEQ 48$ 3 
5 D6 0650 INCL = RS : | 
04 Ag BS 0065F TSTW  4(HEADER) > 1757. 
02 11 00662 BRB 49$ F | 
61 95 0664 48$: TSTB (MAP_AREA) : 1758, 
40 1 666 49$: BNEQ 54$ 3 
00 FC BO 3 E2 006 BBSS R3, a-4(RO), 50S : 1769 
06 3 . 0660 50$ BLBC 8OséaR 318 : 1774. 
0 34 «OA : 6 MOVAB 2 (r2), FCH : 1775 
04 11 00674 BRB $ F 
50 oc a2 9E 00676 518: MOVAB 12(R2), FCH : 1776 
6 8 7A 52$: STW  (FCH) : 1785 
1D 67¢ $s 453$ ; 
52 DD 0067 PUSHL HEADER : 1790 
000000006 00 1 FB 6 CALLS #1, INIT_ATTR F 
19 00000000" EF 3 £0 006 § #3. QUAL710, 54$ : 1791 
1 DD 0068F PUSHL #1 + 1793 
000000006 00 1 FB 691 CALLS #1, SELECT_INPUT_FILE : 
0 00000000"FF 8 DE 0696 53$:  MOVAL a@FAST_IMAPCRVNJ, RO : 1797 
00 FC BO 53 £4 006A BBSC R3, a=4(RO), 548 : 


— 
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Be 11:58:52 USAckUPesne SFAsTScaNn.0 


: on 


a: 


| 
52 0200 ¢2 9 O6A8 548: OVAB 512(R2), HEADER : 
4 Fo O06AD 55$:  § AOBLSS READ_COUNT, XVBN, 56$ : 
068} BRB 57$ : 
FEF5 31 0068 568: BRW 41$ : 
59 40 a9 : 0686 57$:  MOVAB 64(R9), VBN + 1806 
FEGG 06BA BRW 3$ + 1646 
7E 7C 006BD 58$ CLRQ  =(SP) + 1814 
7E 7C O06BF CLRQ  =(SP) : 
7E ge 06C CLRQ = (SP) : 
7E 7C 006C CLROQ 45?) : 
7E 34 7D 006C Ova #52, =(SP) : 
00000000' EF DD 006C8 PUSHL INPUT_CHAN : 
E D4 O06CE CLRL. = (SP) : 
000000006 00 o¢ FB 00600 CALLS #12, SYS$Q10W : 
8 D6 00607 INCL + 1817 
58 00000000" EF 08 00 ED 00609 CMPZ7v #0, #8, COM_I_SETCOUNT, RVN + 1819 
p iF O06Ee BLSSu 59 : 
F950 31 O06E4 BRW 1 : | 
00000000" EF DD 006E7 59$:  PUSHL FAST_BUFFER + 1826 
00000000" EF DD 006ED PUSHL FAST-BUFFER_SIZE : 
000000006 00 02 FB 006F3 CALLS #2 : 
00000000" EF 7C OO6FA CLRO. FAST_BUFF > 1825 
00000000" €£ F BA 00700 BICB2  464,~COM FLAGS : 1826 
53 00000000° EF 9A 00708 MOVZBL COM_I_SETCOUNT, R3 + 1831. 
: D4 0070F CLRL = RVN : 
07 11 00711 BRB 61$ : 
52 0D oo713 60$:  PUSHL RVN ; 
0000v CF 01 FB 0071 CALLS #1, DIR_SCAN : 
52 33 F3 OO71A 61$:  AOBLEQ R3. RVN; 60$ : 
00000000" €éF 0200 &F 3¢ 0071 MOVZWL #3{2, FAST_BUFFER_SIZE : 1836 
7E 0200 8F %3C 00727 MOVZ2WL #512, <(SPY + 1837 
000000006 00 01 FB 007 g CALLS #1, GET_VM : 
00000000" EF 50 D0 007 MOVL RO. FAST BUFFER : 
03 00000000" EF 03 £0 0073A BBS #3, QUAL710, 62$ > 1842 
O1CA 31 00742 BRW 75§ : 
59 00000000" EF 9A 00745 62$:  MOVZBL COM_I_SETCOUNT, R9 > 1845. 
56 ps 0074C¢ CLRL —sRVN : 
0188 31 0074E BRW 74$ : 
50 00000000'FF46 DE 00751 63$: | MOVAL a@FAST_IMAP_SIZECRVN], RO : 1850 
57 FC AO Of 00759 ASHL #12, =4(ROY, R7 3 
a ps 0075€ CLRL FILE NUMBER ; 
. 0100 31 90760 64$: BRW 73$ : 
50 00000000'FF46 DE 00763 65$: MOVAL a@FAST_IMAPCRVN], RO : 1852 
51 FF AS 9E 00768 MOVAB = 1( : 
EC FC BO 51 gi O76F BBC R1, a-4(RO), 64$ ; 
0040 =F 00 6E - 00 C 007% MOVCS #0. (SP), #6, #64, FIB + 1864 
0 AE 00200000 8F 09 O77 MOVL #2097152, FIB > 1865 
4 AE 00010001 8F 00 0078 MOVL #65537, FIB+4 : 1866 
38 AE 36 80 078 MOVW RVN, FIB+ > 186 
— 7¢ 00791 CLRQ = ( SP) : 187 
7E 7C 00793 CLRQ = =( SP) ; 
7E pd 00798 CLRL = = (SP) ; 
3C =O AE OOF «(0079 PUSHAB FIB_DESC : 
7E 7C OO79A CLRQ = = (SP) ; 
40 AE 99F 0079C PUSHAB 10SB : 
7E 72 «BF 9A 0079F MOVZBL #114, -(SP) : 


— SSN" 
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VOe-000 FAST_FILE SCAN = fast file scan main routine 14-Sep-19 4 $7 :89:23 EBACKUP.SRe FASTSCAN.O3951 at (3 
| 00000000' cr DD 7A3 PUSHL INPUT_CHAN : 
| —E D4 OO7A CLRL 5s) : 
000000006 90 ¢ FB OO7A CALLS #12, SYS$QI0W ; 
A 0 00 0078 STATU : 
9” : 078 BLBC STATUS, 66$ : 1874 
| A 20 AE 3 00788 MOVZWL 10SB, STATUS : 
1B SA €8 0078C BLBS STATUS, 67 + 1875 
0440 8F 6B OO7BF 66$: PUSHR #*M<R6,R10> + 1877 
7E 00000000" EF 10 ¢1 007¢3 ADDL3 #16, INPUT_QUAL, -(SP) : 
ge DD 007¢B PUSHL : 
000000006 8F DD orp PUSHL ACKUP$_PROC INDEX : 
| 000000006 00 05 FB 970 CALLS #5, LIBSSIGNAL : 
—E 7C OO7DA 67$: CLRO 20 =< §P) + 1888 
7E 04 0070¢ CLRL 0s = (SP) : 
50 00000000" FF 46 DE O070E MOVAL  @FAST_HDR_OFFSETCRVNI, RO ; 
FC B04 ¥ O7E6 PUSHAB @-4(R0) CF ILE_NUMBER] : 
7E 0200 8F 3C OO7EA MOVZWL #512, =(SP) : 
00000000' EF bp OO7EF PUSHL FAST BUFFER : 
— 7C OO7FS CLRQ. = (SPY : 
40 AE 9F 007F7 PUSHAB 10SB ; 
31 DD OO7FA PUSHL #49 : 
00000000" EF DD O07FC PUSHL INPUT_CHAN : 
—E D4 00802 LRL. = SP) : 
000000006 00 OC FB 00804 CALLS #12, SYS$QIOW ; 
SA 50 pO 00808 OVL 0, STAT : 
97 SA E9 0080E STATUS, 68$ : 1889 
A 20 AE 3¢ 00811 MOVZ2WL IOSB, STATUS : | 
1B 5A £8 00815 BLBS STATUS, 69$ : 1890 
0440 8F 6B 00818 68$:  PUSHR #*M<R6.R10> + 1892 
7E 00000000" EF . 10 (C1 008i ¢ ADDL3 #16, INPUT_QUAL, -(SP) ; 
02 DD 00824 PUSHL # ; 
000000006 8F DD 00826 PUSHL #BACKUP$_PROC INDEX F 
000000006 00 05 FB oogeC CALLS #5, LIBSSIGNAL ; 
7E 7C 00833 69S: CLRO 20 = ( §P) : 1899 
7E 7C 00835 CLRQ 0 = (SP) ; 
7E 7C 00837 CLRQ 0 = (SP) : 
7E 7¢ 0839 CLRQ 9 = (SP) ; 
7E 34 70 00838 MOVO #52, =(SP) ; 
00000000" EF DD 0083E PUSHL INPUT_CHAN : 
E D4 00844 CLRL. = (SP) : 
000000006 90 OC FB 00846 CALLS #12, SYS$Q10W ; 
00000000" EF D 00840 MOVL NAM t 1904 
24 Ao 58 8 B94 OVW  FILE_RUMBER, 36(RO) ; 
51 58 08 10 4 0858 EXTZV #16,7#8, FILE_NUMBER, R1 + 1905 
39 A 2! 085D MOVB R11, 41(RO) : 
8 OA 6 90 00861 MOVB RYN 40(RO) + 1906 
A AO D4 00865 CLRL = 42 (RO) : 1907 
: AO B4 00868 CLRW  46(RO) > 1909 
51 0 000000" EF DbO 08 MOVL FAST_BUFFER, R1 + 1921 
| 02 00000000" EF 91 00 CAPE PAST_STRUCLEV, #2 ; 1915 
26 «Ad OA Al § $878 MOV ate 38(RO) > 1921 
0 61 9A 00 MOVZBL (R1) Ro : 1923 
é 6140 f 0 MOVAW (R1)CROJ, NAME_ADDRESS > 1924 
14 8 MOVL a , NAME_LENGTH : 1925 
62 14 20 A 0O88A LOCC #32, #20,~(NAME_ADDRESS) > 1926 
2 12 008 BNEQ 70 3 
| 
| 
t 


1 


ae 


. 
& 
| FASTSCAN Fast file scan bese 1984 256: AX-11 Bliss=-32 V4.0-74 
“VOe-000 FAST_FILE. SCAN - fast file scan main routine 12-8 08-13be $7 :28:23 YBACKUP- SRE FAS TSCAN.b$351 
1 04 00 CLRL aR 
AREY oO ta 
| 53 51 32 o 36 SuBLS NAME ADDRESS, P, NAME_LENGTH 
| 26 40 04 Al BO DORIC 718: HOV. CRI). 38¢RO) 
5 04 AE Al MOVAB FILE , NAME_ADDRESS 
4 AF 9F 00 a3 PUSHAB FILE 
50 6 A MOVZBL (R1) 
FA A140 3F OOBAB PUSHAW =6(R1)CROJ 
000000006 99 : FB OOBAF CALLS #2, MAKE_STRING 
3 886 MOVZWL RO. NAME-LENGTH 
18 Ar FF F 9A 00889 72$: movZBL #255 RSK_DESC 
50 00000000" EF 09 OO8BE MOVL INPUT _NAM- R 
1C AE 04 A 1) 08C VL 4(RO), RSA_DESC+4 
52 DD OO8CA PUSHL NAME_ADDRESS 
53 DD O08CC PUSHL NAME-LENGTH 
7E 00000000" eF 10 C1 OO8CE ADDLS #16, INPUT_QUAL, -<(SP) 
34 AE OF 00806 PUSHAB RSA_DESC 
8 AE OF 0809 PUSHAB RSA-DESC 
F718 CF 9F O08DC PUSHAB P.AAB 
000000006 00 06 FB OOBED CALLS #6, SYSSFAO 
50 00000000" EF 00 OO08E7 MOVL INPUT_NAM, RO 
03 Ad 18 AE 90 OO8E MOVE RSA_DESC, 3(RO) 
50 DD O08F PUSHL R 
000000306 00 01 FB OO8F CALLS #1, INIT_NAMEBLOCK 
000000006 00 09 FB OO8FC CALLS #0, SAVE-ONE_FILE 
FESA 58 01 7? F1 00903 73$: ACBL R7, #1, FILE-NUMBER, 65$ 
FE42 56 01 59 £1 00909 74$: ACBL 9° #1. , 63$ 
00000000" EF DD 00905 75$:  PUSHL FAST_BUFFER 
00000000' Ef DD 00915 PUSHL FAST~BUFFER_SIZE 
000000006 2 FB 0091B CALLS #2, FREE_VM 
00000000" EF 7C 00922 CLRO  FAST_BUFFER 
2 54 00000000' EF 9A 00928 MOVZBL COM_T_SETCOUNT, R4 
f 53 00000000' EF DO 0092F MOVL FAST_IMAP, R3 
D4 009 CLRL = RVN 
23 11 00938 BRB 77$ 
FC A34 dD Boge 76$: PUSHL -4(R3) CRVN) 
50 00000000'FF4 DE 009 E MOVAL a@FAST_IMAP_SIZECRVN], RO 
7E FC = AO 09 78 00946 ASHL #9, -B(RO)> =-(SP) 
000000006 99 02 FB 0094 CALLS #2, FREE 
53 00000000" EF 00 0095 MOVL FAST_IMAP, R3 
FC A342 D4 0095 CLRL = 4 (RB) CRVN 
09 5 54 3 09 D 77$:  AOBLEQ R4, RVN, 76 
52 00000000" EF 9€ 00961 MOVAB FAST_VOL_BEG, R2 
53 00000000" EF % 968 MOVAB FAST-VOL“END-4, R3 
1 1 O96F BRB 79$ 
6 po 0971 78%:  PUSHL (A) 
50 00000000" EF 9A 00973 MOVZBL COM_I_SETCOUNT, RO 
E 0 78 OO97A ASHL aS: RO, -(SP) 
000000006 00 a) O97E CALLS #2, FREE_VM 
D4 009 CL (AS+ 
53 D1 00987 79$:  CMPL A, R3 
ES 1B 0098A BLEQU 78$ 
04 0098¢ RET 


; Routine Size: 2445 bytes, Routine Base: CODE + 0018 
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Fast file scan 15-Sep-1984 23:56: AX-11 Bliss-32 V4.0-74 P 
SLOW_FILE_SCAN = slow file scan main routine 122808= 138 $7:39:23 EBACKUP. SRE FASTSCAN.B3951 gc 
19 ¢ 1 ZSBTTL ‘SLOW FILE SCAN = slow file scan main routine’ 
13 ? : GLOBAL ROUTINE SLOW_FILE_SCAN: NOVALUE= 
1985 1 !e¢ 
19 = 
19 1 ! FUNCTIONAL DESCRIPTION: 
1358 ! } This routine is the driver for the slow file scan. 
1990 1 ! INPUT PARAMETERS: 
1991 1! NONE 
1336 1! 
1995 1! IMPLICIT INPUTS: 
1994 1! NONE 
1995 1! 
128 1 ! OUTPUT PARAMETERS: 
1997 1! NONE 
1998 1! 
1999 1 ! IMPLICIT OUTPUTS: 
2000 1! NONE 
001 1! 
O0¢ 1 ! ROUTINE VALUE: 
003 1! NONE 
2004 1! 
2005 1 ! SIDE EFFECTS: 
2006 1! NONE 
2007 1! 
2008 1 !-- 
2009 1 
2010 2 BEGIN 
2011 2 DIR_SCAN(1); 
2012 1 END; 
0000 00000 -ENTRY SLOW FILE SCAN, Save nothing 3 
01 DD 00002 PUSHL #1 3 
0000v CF 01 FB 00004 CALLS #1, DIR_SCAN 3 
04 00009 RET : 
10 bytes, Routine Base: CODE + 09A5 
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EBLOCK = read home block from index fil Leet i i 38: 33 


ZSBTTL “READ _HOMEBLOCK = read home block from index file’ 
ROUTINE READ" HOMEBLOCK(RVN,BUFFER): NOVALUE= 


'e4 
ks: DESCRIPTION: 


Ss routine reads the first good home block of the currently open 
index file into the buffer supplied. 


INPUT PARAMETERS: 
- Relative volume number. 
BUFFER - Pointer to buffer. 


IMPLICIT INPUTS: 
NONE 


output PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
sly ER = Contains a valid home ne 
OM_1_SETCOUNT = Count of volumes in volum 


FAST. STRUCLEV = Structure level (1 or 2" ae the volume set. 
{ROUTINE A aay 


i SIDE oo 


x 
BUFFER: REF BBLOCK; ! Pointer to buffer 
LOCAL 
STATUS, ' General status value 
10SB: VECTORE4,WORD], ! 1/0 status block 
OLD_STATUS; ! Save status for error message 
! We keep reading until we get a block that reads without errors and looks 
; Like a home block. Track any error status for the eventual error message. 
OLD srarus = $S$_ABORT; 
INCR VBN FROM 2 TO 100 DO 
BEGIN 
STATUS = $Q10W( 
FUNC=]0$_READVBLK, 
CHAN=, INPUT_CHAN, 
10SB8=10SB 
Pi= BUFFER, 
P2=51 *: 


P5=.VBN); 
IF STATUS THEN STATUS = .10SB(0]); 
IF NOT .STATUS 


AX-11 Bliss-32 
BACKUP. SRCJFASTSCAN.B3 


4.0-74 


31 


fee 


ee 
i 


FASTSCAN AX-11 Bliss-32 V4.0-74 
v04 


H 53 
_HOMPBL OCR = read home block from index fil ia Sep 198¢ i: 38: 33 BACKUP.SRC FASTSCAN.03951 


pu 


yt cheat P,P PI Ps on 


me 


THEN 
OLD_STATUS = .STATUS 
ELSE 
97 38-5 STRUCLE 1 EQL 2 AND 
Nani hed .VBN AND 


SSN NNN 


OOOO COOCCCoCoCoCooO me 


FERCHM 
974 FERCHM 
975 FERLHMOSL L-ALTIDELBN) AND 
976 FERCHMOSW AND 
97 “BUF FERLHM2$W_HOME VBN 
978 “BUF FERCHMOSW-ALHOMEVBN] NEQ 0 AND 
979 “BUF FERCHMOSW-ALTIDXVBN] NEQ 0 AN 
9 -BUF FEREHMG$W_IBMAPVBN] NEQ Q AND 
981 “BUF FERLHM2$L~IBMAPLBN) NEQ 0 AND 
980 “BUF FERCHMOSL ~MAXF ILES]_NEQ 0 AND 
98 8 -BUF FEREHMZSU- 1BMAPSIZE] NEG 0. AND 
984 085 BUF FERCHM2SW-RESFILES) NEQ 0 AND 
985 08 CHECKSUM2(.BUFFER, SBYTEOFFSET(HM2$W_CHECKSUM1)) AND 
986 08 CHECKSUM2( BUFFER, SBYTEOFF SET (HM2$W~CHECKSUMZ) ) 


987 088 THEN 
988 089 4 BEGIN 
989 090 4 If _.RVN EQL 1 
990 091 4 THEN 
991 O36 5 BEGIN 
99 9 H pst STRUC 

5 

5 

5 

5 

5 

5 

5 

; 

5 

4 

4 

be 

4 

4 

& 

4 

4 


Be Ge Oe Se Oe Se Se Be Ge Ge Be Be Se Se Ge Ge Se Se Ge Ge Fe Ge Ge Ge Fe Se Se Ss Se Se Se Se Ge Ge Ge Ge Ge Se Se Se Ge Se Se Se Ge Se Se Ge Ge Sse Se Se Ge Ge Se Se ee 


F 
99 094 IF BUF FER pnosue ge TCOUNT) GTRU MAX_VOLUMES 

994 95 THEN SIGNAL(BACKUP$ _MAXVOLS, 1 ont’ QUAL CQUAL_DEV_DESCJ); 
995 09 COM_I_SETCOUNT = .BUFFERLHM2$W.SETCO 

996 097 IF ~COM_I_SETCOUNT EQL 0 THEN COM_I_SETCOUNT = 1; 
998 099 .QUA L EQUAL VOLUJ AND 

1332 100 -QUALCQUAL"VOLU_VALUE] GTRU .COM_I_SETCOUNT 
17 giRh ms 
1002 10 BACKUP$_NOSUCHRVN, 

100 104 2. -QUACCQUAL _VOLU VALUE], .COM_I_SETCOUNT); 
1004 105 ome? 

1005 106 HM2$S_S 

1006 107 BUFFERLiMeSt STRUCNANE, 

1007 108 COM_I_STRUCNAME) ; 

1008 109 é 

1009 110 RETURN; 

1010 111 END 

1011 118 ELSE IF 

1018 11 .RVN EQL 1 AND 

101 114 BUF FERCHM2$8_STRUCLEV] EQL 1 AND 

1014 115 -BUFFERCHMIS$W_CLUSTERJ EQL 1 AND 

1015 116 .BUFFER HAI SL ~1BMAPLBN} NEQ 9 AND 

1016 11 BUF FERCHM1$W_MAXFILES) NEQ 0 A 

101 118 BUFFERCHM1$W~IBMAPSIZE) NEQ 0 A 

1018 119 CHECKSUM2(.BUFFER, $BYTEOFFSET(HM1$W_CHECKSUM1)) AND 
1019 120 CHECKSUM2(.BUFFER, SBYTEOFFSET(HM1$W~CHECKSUM2) ) 
1020 121 THEN 

1021 1 : BEGIN 

10 ¢ 1 FAST STRUCLEY = 

10 124 COM_T_SETCOUNT = "i, 

1024 125 iF 

1025 126 -QUALCQUAL_VOLU] AND 


aenm i 


—> > a as 9 9 ws 
lelelelelelelelelelolelelolo) 
Pororororonoronororororonn 27 


CSONOUE wr 


OFFC 00000 READ_HOMEBLOCK: 
WORD 


58 444444 G 00 
5A 00000000" + 
3 8 
5 2c 
56 08 AC 
57 2 
oe 
i 

7E 0200 =8F 
56 

» | 

31 
46 AA 

7E 

000000006 00 C 
58 0 
ies y 
fare & 
59 58 
0111 
02 OD A6 
10 = A6 10 09 
0 

00A1 
08 . 

F 

= 
10 A6 

E 

12 =A 


ast fil 

EAD_HOM 

127 4 

1 8 4 

1 & SIGNAL ( 

; ? ? ACKUP$_NOSUCHRVN 
1 § 4 RETURN; 

1 END; 

134 END; 

; 5 

: $ : No good home block found. Report failure. 
1 

140 


9E 0000 


coonro 
oorm 
oO 


COOCoCoCooOoCoooooooooooooo 


MFO POW "OO POwoonr 


INPITOIMINININ =  O 


i=) So 
SSSsssoooooeSeSoSeoSeSeSeSeses 


1 & & & 
OTDUWIMM OOWO 


See 


ooooo 
3 


ww 


Ecss 


OD DD OWN OWI MWS MOSS ONSWSO 


WAAAY 9 2 @§ OOM OODLOII*OMONYS 


CoOoooooooocoeo 
CoOoOooooooo 
NOOO 

muro > 


SoOooooooooo 


w TN 
rw 


Quis 
PMM 


AX-11 Bliss-32 V4.0-74 
c 351 


e scan 4 ; 1984 23:56:5 
EBLOCK = read home block from index fil 127808-138e #93933 YBACKUP SRe FASTSCAN.B 
-QUALCQUAL_VOLU_VALUE] GTRU 1 


, -QUACCQUALVOLU_VALUE], .COM_I_SETCOUNT); 


SIGNAL (BACKUPS_PROCINDEX, 2, INPUT_QUALCQUAL_DEV_DESC], .RVN, .OLD_STATUS); 


Save R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11 
CHECKSUM2, R 
COM_I SETCOUNT, R10 


#44, OLD STATUS 
BUFFER, R6 
#2, VBN 


#4 

INPUT_CHAN 
#12, SYS$Q10W 
RO, STATUS 


TATUS, 2$ 

10sB. STATUS 

ATUS. OLD_STATUS 
(R6), #2 


- #16, 16(R6), VBN 


MV 10 SO BLS OMY 
PDAO HLH — -$RHOKHWN 1-1 o-m 
De > wm 
o a 
a 


roe 8 


; 2014 


0 


non 
Sa 
aa 


a 


<7 


: 
file scan 1b-se -1984 23:56: AX-11 Bliss-32 V4.0-74 P 9 iF 
-HOMEBLOCK = read home block from index fil 12780571984 $7:39:23 EBACKUP SRe FASTSCAN.B32;1 stl a V 
16 6 TSTw (R6) ‘ : 
E4 8 BEQL é : aoee : 
16 A6 f TSTW (R6) : 2081 ; 
18 he D Perth cR6) + 2082 
1C se Beot beR6) 2083 
3 ? BEQL it : 3 
= § f boris — : 
22 6 B TSTW 34(R6) > 2085 : 
eB Be. i i ues} 
6 DD PUSHL Ré : | ; 
68 ; i: CALLS #2, CHECKSUM2 : | : 
6 5 BLBC RO : ; 
E Ore BF 3C MOVZWL #510, -(SP) + 2087, ; 
6 dD PUSHL R6 : ; 
68 08 FB CALLS #2, CHE CKSUM2 : F 
58 E BLBC ~=—_—«aRO.«*O1118 : : 
01 04 AC D1 CMPL = RVN, #1 : 2090 ; 
01 i3 OAD BEQL 7$ : 3 
45 AA 02 90 MOVB #2, FAST_STRUCLEV : 2093. : 
OOFF  8F 28 «=A6 OBI 4 CMP tay #255 + 2094 | ; 
14 1B OOOBA BLEQ F 3 
7E SA AA 10 C1 9008¢ ADDL3 #16, INPUT_QUAL, -(SP) + 2095 : 
01 DD 000C1 PUSHL : : 
000000006 8F DD 000C3 PUSHL #BACKUPS MAXVOLS : ; 
000000006 00 03 FB 00009 CALLS #3, LIBSSIGNAL : | 3 
' 6A 28 Ag 9 00000 8$: MOVB  40(R6), COM_I_SETCOUNT : 2096 : 
03 12 000D4 BNEQ 9 : 2097. : 
6A 01 90 00006 MOVB #1, COM_I_SETCOUNT : : 
1c 90 AA E9 00009 9$ BLBC  QUAL+147> T > 2099 : 
6A D1 «AA O91 90000 CMPB = QUAL+79, COM_I_SETCOUNT : 2100 | 
7E ba OR O00ES AOVZBL COM.1_SETCOUNT, =<SP) S106. 
7E D1 AA 9A OO0ES MOVZBL QUAC+79, -(SP)° : 
2 DD OOOEA SHL. @# : 2102. 
000000006 8F DD OO0EC PUSHL #BACKUP$_NOSUCHRYN : 
000000006 00 4 FB OOF 2 CALLS #4, LIBSSIGNAL ’ | 
02 AA Occ «C6 0c 28 OOF 108: move #12, 460(R6), COM_I_STRUCNAME ; 3107 
01 04 =A D] 0191 11$:  CMPL RYN, #1 > 2113 
59 12 103 BNEQ 12 : 
01 0D A6 91 00107 CMPB OS s«é13(R6), #1 > 2114 
53 12 00108 BNEQ 12$ : 
01 08 Ab Bi 00100 CMPW (RO), #1 > 2115 
4D 12 00111 BNEQ 2s ; 
02 A é 113 TSTL (R6) > 2116 
4 118 BEQL 2$ : 
06 =A f 011 TSTW  6(R6) : 2117 
4 O18 BEQL 12$ ; 
6 8 11D TSTw (RO) : 2118 
F O11F BEQL les : 
DD O12 PUSHL #58 > 2119 
6 DD 00123 PUSHL R6 : 


| FASTSCAN Fast file sca 1984 AX-11 Bliss-32 V4.0-74 
| READ HOMEBLOCK = read home block from index fil Sede 73 38: ‘i BACKUP. SRC FAST SC 400331 
: FB 1 ; CALLS + CHECKSUM2 
1 BLBt 
| ore Ff $e 001 MOVZWL aD! =(SP) 
DD 001 PUSHL R 
$8 re CALLS » CHECKSUM2 
BLBC RO. 
45 AA 1 90 001 MOVB HE FAST pSTRUCLEY 
6A 1 90 0013¢c MOVB T SETCOUN NT 
40 90 AA : 13F BLBC avin +t4 -‘ 
01 D1 =OAA O91 143 CMPB reer #1 
3A 18 0014 BLEQU 1 
7E 6A 9A b149 MOVZBL COM! ETCOUNT. -(SP) 
7E D1 AA 9A 0014 MOVZBL QUAC+79, =-(SP) 
2 DD 0015 PUSHL 
00000000G 8F dD 0015 PUSHL ey ee 
000000006 00 4 fe oa cats IBSSIGNA 
FEBS 57 01 00000064 ef F1 00160 12$: ACBL wees gs“O"* 1$ 
9 DD OO16A PUSHL OLD_ gra 
04 AC DD 0016C PUSH 
7E SA OAA 10 C1 0016F ADDL3 #16, INPUT_QUAL, -(SP) 
02 DD 00174 PUSHL @# 
000000006 8F DD 00176 PUSHL #BACKUPS PROC INDEX 
000000006 00 0S FB 0017C CALLS #5, LIBSSIGNA 
04 00183 138: RET 


; Routine Size: 388 bytes. Routine Base: CODE + O9AF 


<~ | 


' 
| 


FASTSCAN Fast file scan shee’ “19 756: AX-11 Bliss-32 V4.0-74 Pa 41 
02-000 VERIFY_HEADER = verify file header 12-9 08= 1382 99:29:33 BACKUP.SRCJFASTS CAN. 033.4 » (6) 
3; 1041 141 1 ZSBITL ‘VERIFY_HEADER - een Fite e header’ 

: ; ¢ 128 ! ROUTINE VERIF Y-HEADER(HEADER ile, 1D)= 

SE Le 

; 1046 146 3 i FUNCTIONAL DESCRIPTION: 

$ Hk 4 12 : This routine determines if the block given it is a valid file header. 
5 1049 129 1} INPUT PARAMETERS : 

: 1050 180 1! HEADE - Pointer to header. 

3 1924 13 : FILE_ID - Purported file ID. 

: 1988 1 g 1 § IMPLICIT INPUTS: 

ie fej a 

; 1056 136 OUTPUT PARAMETERS 

> 1058 158 1: 

3; 1059 3158 1 ! IMPLICIT OUTPUTS: 

: Oe is) 4 i _— 

: 106¢ lee 1 § ROUTINE VALUE: 

3; 106 165 1! 0 if invalid file header 

; 133¢ 164 1! 1 if valid file header 

3 ieee 19? ' } 2 if deleted file header 

: 1067 167 1! SIDE EFFECTS: 

: 1068 168 1! NONE 

: 1069 169 1! 

3: 1070 170 1 !== 

RB occu 

> 107 17 

3 199% $1h2 HEADER: REF BBLOCK, ! file header arg 

3 38 $172 FILE_ID: REF BBLOCK; ! file ID arg 

: 1077 177 

: Ors 178 First check the structure level. 

; 1080 180 iF .HEADERCFH2$B_STRUCLEV] NEQ .FAST_STRUCLEV 

; 108¢ 188 RETURN 0; 

> 1084 1 

3 1085 $188 IF .FAST_STRUCLEV EQL 2 

g 1986 $156 THEN 

: Ht 3 BEGIN 

: 1089 189 ! Check the area offsets and the retrieval pointer use counts for 

3; 1090 190 ' consistency. 

1092 193 ir 

; 1998 198 -HEADERCFH2$B_IDOFFSET) LSSU SBYTEOFFSET (FH2$L_HIGHWATER)/2 OR 
3 1094 194 oy DERLFH2SB~ _MPOFFSETJ LSSU ere FH B-HP IDOFFSET) OR 
BR AESSERESE AGREE LEED EMBERE SEE Aor aE 

: 1099 199 “HEADERLFH2$B_MAP_INUSE) GTRU . ADEREEHSHB- A ACOFFSET) = .HEADERCFH2$B_MPOFF SET) 


access ~~ 


- 


5 
R= verify file header 15-sep-19 RiP HiME COS aT arta ae 


j 
N 
RETURN 0; 
' At this te ‘nt. we have verified that the block at least once was a 
valid file header. 
; Look at the file number in the header. If zero, this is a 
' 
I 


' deleted header. 
if 

HEADER ant Eat a EQL 8 AND 
$8 _FID E 


yg READER FH 
RETURN 2; 


Now compute the header checksum. 
if NOT CHECKSUM( HEADER) 
RETURN 2; 


Check file number and file sequence number. 


NUM 


-HEADERCFH2$B =NMX 
SEQ 


-HEADERLFH2SW— 
RETURN 2; 


“HEADEREFH $W 


MAP_AREA: REF BBLOCK; 
! Now point to the map area and make sure that the extension 
: RVN is zero. Also check the retrieval pointer format data. 
MAP _AREA = ,HEADER + .HEADERCFH1$B_MPOFFSETJ*2; 

‘RAP-AREATER SB EX_RVN)_NEQ 0 0 

-MAP_AREA 

~MAP~AREA 3 


RETURN 0; 


R 
PMISe-COONTSIZE NEQ 1 OR 


FM1S$B-LBNSIZE} NEQ 


' Check the retrieval pointer counts for consistency with the 
available space. 


-—o 


AP_AREACFM1$B_AVAIL) 
5 = (.MAP_ARER + FMS 


Se Se Se Se Se Se Se Se Be Se Se Ge Ge Se Fe Se Ge He Fe Ge Se Ge Ge Se Se Se Ge Se Ge Se Se Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Sse Ge Se Se 5 Ss Se Se Se Ge Ge Ss Se Ge Gs 
LF 
FUR 20 OOBVNOU EWN 0 OBNOV EWN (“OO ONOUE WN “OC DONOU EWN —0O0@ w 


MODnnE BEREAN NNI NINA 2 = OO OS 90 OF 


PN & & & 


eur 


-MAP_AREA sols Shr t te GTRU .M OR 
-MAP_AREALFM1$B_AVAILJ GTRU 25 C_POINTERS = .HEADER) / 2 


<- | 


5 
Fast file scan 15-sep-1984 $3:29:23 orth Bliss-32 V4.0-74 Page 43 
VERIFY_HEADER = verify file header 14-Sep-1984 11:55: BACKUP. SRCJFASTSCAN.B32;1 (6) 
1155 5 THEN 
11 : § RETURN 0; 
1188 
i 9 § ' at this ey we have verified that the block at least once was a 
13ey ¢' valid file header. 
1198 o¢ ' Look at the file number in the header. If zero, this is a 
1107 of : deleted header. 
1165 65 IF .HEADERCFHISW_FID_NUM] EQL 0 
1196 6 THEN 
116 6 RETURN 2; 
1168 68 
116 69 
1109 oy Now compute the header checksum. 
13%6 7 IF NOT CHECKSUM( HEADER) 
117 7 
1174 sf RETURN 2; 
1175 75 
1176 $i6 
1177 7 ' Check file number and file sequence number. 
HE Be 
1180 80 -HEADERCFH1SW_FID_NUM] NEQ PILE .JDEE 1D S4 MUN OR 
1181 81 -HEADERCFHISW_FID_SEQ]) NEQ .FILE_IDCFIDSW_ 
11 see THEN 
118 28 RETURN 2; 
1184 see ND; 
1185 85 
1186 sae 
1187 228 ' Header is OK. 
1188 see : 
1189 89 RETURN 1; 
1190 290 1 END; 


003C 00000 VERIFY_HEADER: 
. WORD 


5 00000000" EF 9E pray PANT S482 ;84-F3. : oe 
$4 8000000b6 Go $e 90008 © ROVAB GHECREUM, RA Ga 
2 8% he a1 0014 CPE £(R2), FAST STRUCLEV : 

53 08 at 06 OO1A MOVL fFILE_ID, R3 : 3225 
02 $ 1 QOO1E CMPB Ss FAST STRUCLEV, #2 > 2185 
7 if 0021 BNEQ 4$ : 
26 62 9 00 3 CMPBs«(R2), #38 > 2193 
3 1F 00 6 BLSSU.1$ : 
62 01 Ad 91 00 CMPB) s«1(R2), (R2) > 2194 
oc Ff 0 C BLSSU 18 F 
01 = A2 02 Ae 91 00 : CMPB 2(R2), 1(R2) > 2195 
05 1F 000 BLSSU ‘18 : 


es 
Be Se Se Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Ge Se Se Ge Se Ge Se Se Ge SeSe Se Sees Se Shee Ge Sete Seas 


a 
FASTSCAN Fast file scan 18-50 -1984 23:56: AX-11 Bliss-32 V4.0-74 p 44 
02-000 VERIFY_HEADER = verify file header 12-8 08- 1984 $7: 28:23 YBACKUP SRE FASTSCAN.B32; 1 FF S| 
02 A2 03 A2 91 00035 CMPB (R2), 2(R2) : 2196 
g f 6 A 1$: BGEQU $ 3 
00 C BAW $ : 
1 02 Ad 9A 0003F 28: v2 (R2), RI : 2197 
0 1 A A 23 ot gy (R2), RO : 
1 50 C2 0004 SUBL RO, Ri : 
51 3A A2 08 9 +4 4A CMPZV #0, #8, S5S8(R2), R1 : 
F 1A 0005 BGTRU 9$ : 
08 ae BS 0005 TSTW g(R2) + 2209 
05 12 0005 BNEQ : 
OD a2 95 0005 TSTB =—-:13(R2) t 2210 
$0 1 000A BEQL «Ss 7$ : 
2 DD 0005C 3s PUSHL R2 : 2217 
64 gi FB O005E CALLS #1, CHECKSUM : 
65 0 €9 00061 BLBC =3E._s«aRO,_ 7S ; | 
63 08 A2 61 00064 CMPW gcR2), (R3) : 2225) 
SF 12 00968 BNEQ $ : 
0S a3 0D Ag 91 OO06A CMPB —s«13(R2), 5(R3) t 2226) 
58 12 O0d¢F BNEQ 7$ : 
02 a3 OA A2 81 00071 CMPW =s«10(R2), 2¢R3) > 2227, 
4F 11 00076 BRB 6$ ; 
50 01 a2 9A 00078 4$ MOVZBL 1(R2), RO : 2240 
50 624 3 0007¢ VAW  (R2)CROJ, MAP_AREA : 
01 ad 95 00080 TSTB «1 (MAP_AREA) t 2242. 
4C 12 00083 BNEQ 9$ 3 
01 06 AO 91 sia CMPB 6(MAP_AREA), #1 3: 2243 
46 12 00089 BNEQ 9S ; 
03 07 Ad 91 00088 CMPB © 7(MAP_AREA), #3 + 2244 
40 12 OOO8F 5$ BNEQ 9S ; 
09 a0 08 ad 91 00091 CMPB © 8(MAP_AREA), 9(MAP_AREA) : 2253. 
39 1A 00096 BGTRU 9$ : | 
51 52 50 ¢3 00098 SUBL3 MAP_AREA, R2, R1 : 2254 
51 OA C2 0009C SUBL2 #107 R1 : | 
51 02 C6 0009F DIVL We R1 ; 
51 OOFF Cl SE 000A MOVAB 255(R1), R1 : 
51 09 Ao 08 00 €£D 000A CMPZ7V #0, #8, 9(MAP_AREA), R1 : 
22 1A OO0AD BGTRU : | 
02 A 83 OOAF TSTW g(R2) : 2265. 
15 13 000B2 BEQL § 3 | 
52 DD 00084 PUSHL Re : 2272. 
ge 01 FB 000B6 CALLS #1, CHECKSUM ; 
D 50 €9 00089 BLBC =E_—s«aRO,_ 7S ; 
63 02 Ae 81 000BC CMPW (R2), (R3) : 2280 
0 if 6° C BNEQ 3 
02 A3 04 A2 8 C CMPW 4(R2), 2(R3) : 2281 | 
04 13 000C7 68: BEQL : | 
50 02 v6 000€9 7$: MOVL #2, RO > 2283 
4 b00¢C RE ; | 
50 01 00 O0¢D 8$: MOVL #1, RO > 2289 
04 00000 RET : 
50 bs 0001 9$: CLRL — RO + 2290 
4 00003 RET 3 


3; Routine Size: 212 bytes, Routine Base: CODE + 0833 


Sa 


FASTSCAN Fast file scan 1-56 -1984 23:56: AX-11 Bliss-32 V4.0-74 
wees PROCESS_FILE = process selected file 14- ety 7 #7 :89:23 BACKUP. SRC FASTSC N.B insoa3:1 
; 1138 91 1 ZSBTTL ‘PROCESS_FILE = process selected file’ 

; 119? 35 : ROUTINE PROCESS_FILE: NOVALUE= 

ge yin 

; 1199 % ii FUNCTIONAL DESCRIPTION: 

; 1198 This routine is called when the next file that matches the selection 
3; 1199 38 1! file specification has been located. It completes the tests that 

: 1200 9 : } eyrect files to be processed, and if these are passed, processes the 
; 1 0¢ OT 1: cna 

3: 1 7 Oe 1 ! INPUT PARAMETERS: 

1888 8 ee 

> 1206 0S 1 ! IMPLICIT INPUTS: 

: : 4 8 } INPUT_NAM = Contains resultant string and file ID. 

: 1209 08 1 | OUTPUT PARAMETERS: 

Be bt ae 

:1 ig 11. 1°! IMPLICIT OUTPUTS: 

ie ao 

> 1215 2314 1 | ROUTINE VALUE: 

ee aie 

: 1218 317 1 | SIDE EFFECTS: 

3: 1219 8 1! File processed if appropriate. 

3; 1220 319 1! 

: 1221 a59 ; !ee 

s 

: i$ 4 523 BEGIN 

3 i 4 ; LOCAL 

3: 1225 24 FILE_NUMBER, ' Clean ithe number 

3 1226 $2 RVN; ' Clean R 

: 1588 359 

; i “ 4 : Get clean file ID. 

> 31 39 fi E_NUMBER = .INPUT_NAMCNAMSW_FID_NUM); 

3: 12 4 331 FILE NUMBER<16,8> = TINPUT <n FID _NMX]; 

: : 335 RVN = .INPUT_NAMCNAMSB_F ID~RVN 

: 1235 

31 5 IF QUAL CQUAL_FAST) 

3; 1237 $ HEN 

3 : : g BEGIN 

> 1240 335 ! First, make sure the RVN is in range. Then, make sure the file number 
: 1349 309 is in range. 

: 1 rk 34 if .RVN GTRU .COM_I_SETCOUNT THEN RETURN 

3 1246 4 IF .FILE _NUMBER CrAO ~FAST_IMAP_SIZEC. RVII-11#4096 THEN RETURN; 

1366 re; 

: 1 <3 4 ' See if file is selected. 

: 12468 4 ‘ 


Pa 45 
- (7) 


; 


aa 


c-— 


DPUPVISVSIASSISIIVS & 


SSSSELSALERISSSISALUN LSS 


18 


74 
75 


et at a ts a 9 a = Ws — 2 2) 8 4 tn a — 8 2 a 


ee 
| Oe Se Se Se Se Ge Ge Ge SH Ss Ge Se Se Gs Oe Se Se GH Se Se Se Ge Se Ge Ge Fe Ge Ge Se Se Geese Ge Se see 


| 


oo 


25 
is 


| 
| 
| 
| 
| 
| 


SARA 
Ooo 


WAWAAIAAWN AANA 


OOO NNN NNN 


POPOPERSPOPIPPOPoPoRPURoTonofononononoropornornorornonororopoporornrorn ov 
o o vw 
Anu ooo 


& 


WN "SO OONOULS WN 


76 


‘e 
“e 


= PIPITIUPNINININIAIMYAININIUMPIAINININININIWS PUSS LWP SLEEK MSA We 
m — ~ o—- 
= nn" 


ow 
ma 


an 
- 


IF 
THE 


ELSE 


END; 


NOT 


process selected file 
AVAL COUAL TRACI 


WPoseoctge 2:56:55 


BEGIN 
IF NOT .BITVECTORC.FAST_IMAPC.RVN-1], .FILE_NUMBER-1) 


BEG! 
If 


THEN 


RETURN; 


-BITVEC 


NOT 
NOT (.DIR_ 


RETURN; 
D 


CTORC.FAST_IMAPC.RVN=-1) 


-FILEN 


CTATUSED STA AT_SCANNED] AND .QUALCO 


-QUALCQUAL_IMAG] A 


Finish evaluating selection criteria. 


MOF NOT SELECT _INPUT_FILE(%B'010") THEN RETURN; 


! File is selected. 


ir SAVE _ONE_FILE() 
IF .QUALCQUAL_ IMAG] 


08 


30 
As 


50 


BITVECTORC.FAST_IMAPC.RVN-1), 


01 


FC 


Process it. 
clear the bitmap bit to avoid processing its synonyms. 


ER-1) AND 


QUAL_OSAV)) 


AND 
— (DIR _STATOSCD_STAT_SCANNED] AND .QUALCQUAL_OSAVJ) 


AX-11 Bliss-32_V 
BACKUP. SRC FasTse 


If successfully processed in image mode, 


-FILE_NUMBER=-1) = 


001C 00000 PROCESS_FILE: 
W RD 


congas 


3 8 


06 
00 


0234 baad 


0238 Daas 
FF A 


m5 su 


~ 
oO 

OoOo°oo 
oO 
oo 
— 


oooooooocoo 
SoOoOOoooooooo 


FONE MONHO 


FALSE; 


Save R2,R3,R4 
QUAL+8, R4 


36 
4OKR 
#0 
5 


UT 
ROY 
RO) 
ae 

@F AST 

ne, 


QuAL 
-}MA 


Lé NUMBER 


Fite NUMB MBER 
cite wy “#8, FILE_NUMBER 
RVN 


+9, 2$ 
COM_I_SETCOUNT, RVN 


“4 jaa RO 


@FAST IMAPCRVA, RO 


-1(R2J, 


ad 


Page 46 


(7) 


2292 


2330 


i 
343 


2351 


aa | 


Fast file 


06 
iB 


35 


o— 
yvi~ 


3; Routine Size: 151 bytes, 


02 
FC 
F 
0299 
0 
0299 
000000006 


000000006 
02 


FC 


Routine Base: 


s¢ 
PROCESS “FILE = process selected file 


80 


B0 
C4 


AG 
C4 


B0 


| 
| 
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aun 


Oo 
~N 
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Oo 
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COSCO COCO COCO OOOO OOOCO 
Sooo OOO OO OOOO 

wht. 0. +. Www wie} 29 94 

SeoV SPSS Noma Samo Sunoco 


SSSssssssess 


CODE + 0C0? 
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oT 


nN 
bad 


Ww 
wn 


> 
ef 


w 
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AX-11 Blis isge 32 V 
BACKUP. SRC FASTSC 
#3, QUAL+10, 1$ 
4h a4 tRO): 2s 
a-4(RO), 28 
a Ant: STATUS, 5$ 
#3, L+10, 4$ 
#2. ts Tatus. 3$ 
QUAL+ big 
4$ 


ELECT_INPUT_FILE 
#0, AVE_ONE_FILE 


SFASt PUT RAPCRVAD. RO 
R2, a-4(RO), 5$ 
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le scan 
N = scan a directory 


ZSBTTL “DIR_SCAN = scan a directory’ 
ROUTINE DIR_SCAN(RVN): NOVALUE= 


uw 


lee 


' 
ro ow DESCRIPTION: 


sooo 


F i 
0 A 
1 1 
1 1 
1 1 
1 1 
' 
: s' : : his routine is the driver for a directory scan. 
1 35 1 ' INPUT PARAMETERS: 
: 37 : : RVN - Reiative volume number. 
1 95 1 ! IMPLICIT INPUTS: 
1 a8 1 y NONE 
1 97 1! 
1 98 1 ! OUTPUT PARAMETERS: 
1 99 1! NONE 
1 400 1! 
1 401 1 ! IMPLICIT OUTPUTS: 
1304 ret 1! NONE 
1305 4 1! 
1308 404 1 ! ROUTINE VALUE: 
1307 2405 1! NONE 
1308 2406 1! 
1309 2407 1! SIDE EFFECTS: 
1310 408 1! NONE 
1311 409 1! 
13g 410 1 !<=- 
131 2411 «1 
1314 sole BEGIN 
1315 241 FAST_RVN = .RVN; 
138 2414 INIT_DIR_SCAN( 
131 2415 ~ INPOT_CHAN, 
1318 seis . INPUT_NAM 
1319 241 INPUT _GUALCQUAL_DEV_DESC], 
1320 2418 § INPUT QUALCQUAL_EXP_DESC], 
1321 2419 -QUALTQUAL_IMAG] + TQUALCQUAL_OSAV)*2, 
13 ¢ 2420 »RVN, 
13 $ 1 0); 
1324 4 : WHILE FIND_NEXT() DO PROCESS_FILE(); 
1325 24 2 FREE_DIR_DATAQ); 
1326 2424 1 END; 
0004 00000 oR an 
3§ 00000000" EF 3 00002 MOVAB 
0160 ¢ 064 ac 9 009 MOVB 
7E 04 id CLAL 
1 n ¢ , A RP Bae 
50 Fras C it § fF 001 EXTZV 
7e 6 art as 003 ADDL" 
7E 86 8 C1 00 9 ADDL 


oer, Bliss-32 
BACKUP .SRCJFAST 


Save R2 
INPUT_QUAL, R2 
RVN, FAST_ 
=(SP) 


RVN 
a. #1, QUAL+10, R1 
#7. #1. QUAL+15, RO 
(RIDER 


#8, INPUT_QUAL, -(SP) 
#16, INPUT_QUAL, -(SP) 


V4.0-74 
SCAN.B3 
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| 
FASTSCAN Fast file scan 18.5 
vou DIR. SCAN - scan a directory 14- 
FB A2 OD PUSHL 
EC Ad OD SH 
0000v CF 8 FB 000 CALLS 
0000v CF 0 FB 00038 1$ CALLS 
07 50 €9 000 BLBC 
FF24 CCF 00 FB 00040 CALLS 
F1 11 00045 BRB 
0000v CF 00 FB 00047 2$ CALLS 
04 0004C RET 
; Routine Size: 77 bytes, Routine Base: CODE + OC9E 


bet a FE: a 


AX-11 Bliss-32 Ye ,0°285. 
BACKUP. SRC ras TS 32;1 


ute 

INPUT CHAN 

a7, "IAI -DIR_SCAN 
#0, FINDONEXT 


0 5 
#0, PROCESS_FILE 
#0, FREE_DIR_DATA 
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—w 
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UEPWN—OOM® 


PS tee le te ee ee a lo 


bap petty tte 
SoS ss 
—SOOONOVUEWN —“OODNOUS WN O0O® 
MOMONEPONOPONYD: 
ry oy oy ow oe we ow ee 
AAACOUMMUUINUTIU 


SSSSSSSESS ESET 
SaNOURUN—OO NOWUPWwP 
WO OONOUS wr 


a a a ee ee ee a a a ed dd 
bots -) 


RIPDPIPIPIMIPINPINPIPIPININIMININININIAIINIAY a i ed 


Be Be Se Ge Se Se Se Ge Se Ge Fe Se Ge Se Ge Se Ge Ge Fe Ge Se Ge Ge Se Ge Se Gs Ge Ge Se Ge Ge Ge Ge Se Ge Se Gs Se Se Se Ge Se Ss Se Ss Se Ge Se Se Se Ss SH St os Ss ee 


WWAAA ALAA AAAA At 


RAN=S 


eres 


H 6 
scan 15-Sep-1 256: AX-11 Bliss-32 V4.0-74 P 50 
SCAN = initialize directory scan 12-9 08- 198 $7 :3$:33 EBACKUP. SRe FASTSCAN.832;1 win (9) 


ZSBITL ‘INIT_DIR_SCAN = initialize directory scan‘ 
GLOBAL ROUTINE IRIT_DIR_SCAN(CHAN,NAM,DEV_DESC,SEL_DESC,FLAGS,RVN,LIMIT): NOVALUE= 


4 


FUNCTIONAL DESCRIPTION: 
This routine initializes context for a directory scan. 


INPUT PARAMETERS: 
HANNEL 


SIDE EFFECTS: 
NONE 


i 

i 

! 

: C = Channel assigned to volume set. 

: NAM - Pointer to name block. 

; DEV_DESC - Pointer to device name descriptor. 

; SEL DESC - Pointer to selection filespec descriptor. 

: FLAGS - Bit 0 true to request an image scan. 

: Bit 1 true to request immediate return on terminator. 
/ Bit 2 true to request return of scanned directories. 
; RVN - Relative volume number. 

: LIMIT - Pointer to vector of ODS-1 scan Limits or 0. 
i IMPLICIT INPUTS: 

: NONE 

i QUTPUT PARAMETERS: 

: NONE 

i IMPLICIT OUTPUTS: 

: NONE 

i ROUTINE VALUE: 

NONE 

i 

i 

i 

i 


eesin 
DEV_DESC : REF VECTOR, ! Device name descriptor 
ein NAM : REF BBLOCK; ' Pointer to name block 
STATUS ' General status value 
LOCAL_FAB : SFAB_DECL, / FAB for SPARSE 
LOCAL_NAM : SNAM_DECL; ! NAM for SPARSE 


: Initialize the impure area. 
CHSFILL(O, DIR END=DIR_BEG DIR_BEG); 
DIR_FLAGSCD_INITIAL) ="TRUE; 
' Save the parameters. 
DIR_CHAN = .CHAN; 

R"NAM = .NAM; 
DIRNAMCNAMSW_DID_NUM] = FIDSC_MFD; 
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6 
ast file scan 14.58 -1984 23:56: AX-11 Bliss-32 V4.0-74 P 1 
NIT_DIR-SCAN = initialize directory scan Lan geen8he HF:88:23 | ekcnde tae Sra Stan g$5.1 see 3) 
4 DIR_NAMCNAMSW_DID_SEQ) = FIDSC_MFD; 
4 : DIRCNANENAMSUCDID“RYNG = .RVN;~ 
4 , DIR-DEV_DESC = .DEV_DESC; 
4 ! Determine if a rooted directory is being used. If so, do another 
“ : parse to get the root directory ID. 
489 2 
4 If .NAMCNAMSV_ROOT_DIRI 
491 HEN 
49¢ BEGIN 
493 SFAB_INIT (FAB = LOCAL_FAB, 
4 NAM = LOCAL-NAM 
£33 rns 5 DAY Besetoy. 
= . e 

a3? DNA = +P 000005 
299 SNAM_INIT (NAM = LOCAL_NAM, 
330 wor = NOCONTEAL 
208 STATUS = SPARSE (FAB = LOCAL_FAB); 
50 IF NOT .STATUS 
304 THEN SIGNAL (BACKUPS_OPENIN¢+STS$K_SEVERE, 1, .DEV_DESC, .STATUS, .LOCAL_FABLFABSL_STV)); 
206 DIR_NAMCNAMSW_FID_NUM] = .LOCAL_NAMCNAMSW_DID_NUM); 
50 DIR NAMCNAMSW-FID-SEQ) = .LOCAL-NAMCNAM$SW_DID-SEQ]; 

DIR-NAMLNAMSW-FID-RVNJ = .LOCAL-NAMLNAMS$W_DID-RVNJ; 

If. -DIR_NAMCNAMSB_F 1D_RVNJ EQL 0 THEN DIR“NAMCNAMSB_FID_RVN] = .RVN; 


Sera a al ah ah Ab db db ih Ab hb dh Ab eh Ab dh ah Ah ab As 


PAA 


POIRINIRY <2 tt ot ot ot OOD 
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: If no root directory is used, establish the MFD as the root. 


BEGIN 

DIR_NAMCNAMSW_FID_NUM] = FIDSC_MFD; 
DIR-NANE WTFIDTSEQ) = FIDSC7MFD: 
DIR_NAN NAMSW-FID"RVNJ = .RVN; 


! Initialize the result string in the name block with the name of. 

! the MFD. Note that in the case of a rooted ercertery. we are lying 
! about its name. However, this is consistent with RMS behavior and 
} is generally all to the best. 


CHSCOPY (.DEV DESCLO), DEY DESCL1) 
ZCHARCOUNT ( £6 0904060006.01n:1">, 
UPLIT BYTE (*C0000003000000.01R;1"), 

.NAMCNAMSB_RSS), 

“ NAMLNAMSL RSA 


NAMCNAMSB_RSL] = MINU (.NAMCNAMSB_RSSJ, .DEV_DESCLO] + XCHARCOUNT (*C000000]000000.D1R;1")); 
INIT_NAMEBLOCK (.NAM); 


' Initialize the level stack with the root of the selected RVN. 


~e 


. an 


ae a Oe Oe Oe Be Be Be Be Be Be Ge Be Be Be Be Be Ge Ge Be Ge Ge Ge Fe Fe Se Ge Ge FH FS Ge Se Se Fe Se ee Fe Se ee Se Se Se Se Se Se ee ae Fe Se Se Se ee Sees tea 


1443 
> 144 

> 1444 
: 1445 
i 1466 
> 144 

> 1648 
> 1449 
> 1450 
: 1451 
i 1436 
145 

> 1454 
> 1455 
i 1456 
> 145 

> 1458 
: 1459 
> 1460 
> 1461 
i 1468 
: 146 

> 1464 
1465 
ae? 
> 1468 
> 1469 
> 1470 
: 1471 
: 1478 
> 147 

> 1474 
> 1475 


2— 30 


o3cc 


; 
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fest file scan 1 
INIT _DIR_SCAN = initialize directory scan 14 
3 ' 
4 DIR_SP = DIR_STACK; 
4 DIR_LEVELS = 1; 
4 RBLOCK DIR. stat DFID], FIDSW_.NUM] = .DIR 
4 SBLOCKLDIR_STACKLD_FIDJ, FIDSW_SEQ] = .DIR 
44 BBLOCKCDIR STACKLD_FIDJ, FIDSW_RVNJ = .DIR 
$2 DIR_STACKCB_VBN) = "1; 
23 ! Establish the selection file specificati 
$8 } terminator and status bits for the root 
330 RESET DIR_SPEC(.SEL_DESC, .FLAGS); 
55 
23g ! Special cases for root directories: 
554 ‘ the root directory is not saved in 
32? ! If the directory po'nted to by DIR_SEL_D 
539 : we want to save the MFD only. 
558 2 
559 2 IF .NAMCNAMSV_ROOT_DIRI 
560 THEN 
+e ogsin 
208 CHSEQL ( XCHARCOUNT ('000000'), 
564 UPLIT BYTE (°000000") 
565 _SEL_DIR Coscsu_LENGTH] 
366 DIRSSEL-DIR DSCSA~POINTERI, 
568 HEN FLAGS [a Moet MFD] = TRUE 
569 DIR_FLAGSCD_INITIAL) = FALSE; 
TD fakes 
$35) 1 END; 
5D 30 30 30 38 3 30 5B goces 
30 30 30 30 30 5d 30 30 30 0 30 5B OOCF 
1 38 ¢s 49 44 82006 
30 30 30 30 30 30 0000 
07FC 00000 
2A 00000000" EF 9E 00002 
E FF50 CE 9€ 00009 
8F 00 6E 00 2C 0000 
FC AA 001 
1A AA 10 88 0001 
FC AA Se AC 00 oR i8 
58 8 AC 00 000 
oA 58 D0 00024 
6 A DO 00027 
- A6 00040004 F D 02A 
E A6 18 AC B 032 


W_FID 
NAMCNAMSW~F 1D 
"FID 


NUM); 
sea): 
RVNJ; 


BoSep-19R4 24:56:55 Yael! Olisg=$2 y4.00742 


Se This will also set the 


evel. 


itia 


iatt 
IR is "000000" then 


P.AAD: 
P.AAE: 


ASCII 
«ASCII 
ASCII 


-EXTRN 
-ENTRY 


\C000000)\ 


F .LTMIT"NEG 0 THEN CHSMOVE(D_K_NLEVELS*ZUPVAL, .LIMIT, DIR_SCANLIMIT); 


\C0000003000000.DIR;1\ 


\000000\ 
SYSSPARSE 


#16, DIR_FLAGS 
CHAN, DIR_CHAN 


R8, DIR_NAM 


DIR_NAM; R 
EY Shy 8 cas) 
RVN, 46(R6) 


2426 


2473 


474 
aa 
480. 


2481 


2483 


é 
FASTSCAN Fast file scan 18-0 -1984 756: AX-11 Bliss-32 V4.0-74 
v04 INIT_DIR_SCAN = initialize directory scan 14-Sep-19 4 $7 :89:33 YBACKUP.SRe FASTSCAN. 9551 
57 Oc ac D 7 MOVL V_DESC, R7 
a eh a ae ae 
0050 8F eB 6E 00 5c a movcS #0, (SP), #0, #80, SRMS_PTR 
0 Ae 5003 F 8 § VW #20683, SRMS_PTR 
6 AE g 0 MOVB ss #2, SRS _PTRTC? 
7F AE 9 6 VB #2, $RMS~PTR+31 
D8 AD 8 3 B MOVAB LOCAL_NAM, SRMS_PTR+40 
DC AD 04 A p O05F MOVL  4(R7)> S$RMS_PTRI44 
EO AD FF76 CF 0064 MOVAB P.AAD, S$RMS~PTR+48 
£4 AD 7 906A MOVB (R7), $RMS PTR+52 
—E5 AD 8 0 $ MOVB a8. $ams_PTR+53 
0060 8F 00 6E er C 907 MOVCS #0, (SP)> #0, #96, SRMS_PTR 
bE 6002 8F BO 0007A MOVW #24578, $RMS_PTR 
08 AE 10 30 door MOVB #16, SRMS_PTR+8 
60 AE OF 90085 PUSHAB LOCAL 
000000006 00 01 FB 00086 CALLS #1, SYSS$PARSE 
16 50 €8 0008) BLBS STATUS 
6C Ar DD 90090 PUSHL LOCAL _FAB+12 
2 DD 0009 PUSHL STATUS 
7 0D 90095 PUSHL 
01 DD 00097 PUSHL #1 
000000006 8F DD 90099 PUSHL #BACKUP$_OPENING4 
000000006 00 0S FB 0009F CALLS #5, LIBSSIGNAL 
30 6A DO O00A6 18: MOVL 1R_NAM, RO 
24 =A 2A AE DO 000A9 MOVL LOCAL_NAM+42, 36(RO) 
28 =A0 ef AE 80 OOOAE MOVW LOCAL“NAM+46, 40(RO) 
8 AO 95 0008 TSTB = 40(ROY 
14 42 0086 BNEQ 3$ 
28 =A0 18 AC 90 00088 MOVB RVN, 40(RO) 
0D 11 0008D BRB 3 
24 A6 00040004 8F 00 O00BF 2$: MOVL #262148, 36(R6) 
28 = Ab 18 AC 80 990¢7 MOVW RYN, 40(R6) 
59 02 AS 9A OO0CC 3$ MOVZBL 2(R8), 
56 04 ag 0 000D MOVL  4(R8). 
59 20 04 87 67 C 90004 MOVCS (R7), @4(R7), #32, RO, (RO) 
3 18 Gans BGEQ 486 4$ 
6 6 CO 00000 ADDL (R7), R6 
59 > & DEO SUBL (R7). R9 
59 20 FEFE CF 16 2c OES MOVCS #20, P.AAE, #32, R9, (R6) 
51 67 14 C1 OOOEB 4$: ADDL3 #20, (R7), R1 
50 02 AB 9A OOOEF MOVZBL 2(R8), RO 
51 50 D1 O00F3 CMPL RO. ri 
3 18 000F6 BLEQU 5 
50 1 p Ors OVL  R1, RO 
03 A 0 OFB 5$: MOVE RO. 3(R8) 
5 bp OFF PUSHL R8 
000000006 06 01 F 101 CALLS #1, INIT_NAMEBLOCK 
03¢0 CA 015¢ cA 3 108 MOVAB DIR_STACR, DIR_SP 
19 AA 1 90 0010F MOVB #1, “DIR_LEVELS 
50 6A D0 00113 MOVL p R_NAM? RO 
178 «CA 34 AO DO 00116 MOVL (RO), DIR_STACK+28 
17¢ «OCA 8 ad B0 O011C MOVW 40(RO); DIRTSTACK+ 


eee... 
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FASTSCAN Fast file s 
v04 INIT_DIR_SC 
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; Routine Size: 342 bytes, 


6 
1$-sep-1986 
AN = initialize directory scan 14-Sep-1 
0170 A 01 pO 001 MOVL 
E 10 A oD 1 5 mMOVa 
0000v CF 02 F 1 CALLS 
= & 1 TSTL 
1 1 BEQL 
if +3 4 2 1 mMovCc3 
3 A 5 5 3 C 68: BBC 
FEBS sCCF 6 2d 00141 CMPCS 
0c 6BA 0149 
04 i ds 4 BNEQ 
1A sAA 20 00140 61SB82 
1A sO AA 10 8A Balad 2s BICB2 
4 00155 8 RET 
Routine Base: CODE + ODOD 


be $7358: ‘i 


0 SScHB) 88 DIR_SCANLIMIT 


53(R8), 


P.AAF, # 3, DIR_SEL_DIR, @DIR_SEL_DIR+4 


AX-11 Bliss-32 
BACKUP. SRCJFAS 13¢ 


» DIR_STACK+20 
i LiDESC, = (SP) 
Reset -DIR_SPEC 
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FASTSCAN ast file scan 18-5 -1984 23:56: AX-11 Bliss-32 V4.0-74 Pp 5 , 
v04 ESET_DIR_SPEC = reinitialize directory context 12-80b-1 980 $9 :39:33 EBACKUP. SRE FASTSCAN.O9951 29 435 \ 
7 ZSBTTL "RESET _DIR_SPEC = reinitialize directory context’ 
GLOBAL ROUTINE RESET_DIR_SPEC(SEL_DESC,FLAGS): NOVALUE= 
7 lee 
7 


FUNCTIONAL DESCRIPTION: 
his routine reinitializes context to change the selection file spec. 


ree eet = eee Pa 


INPUT ag + ante 
SEL_DES - Pointer to selection filespec descriptor. 
LAGS - Bit 0 true to request an image scan. 
Bit 1 true to request immediate return on terminator. 
Bit 2 true to request return of scanned directories. 


Leak 


IMPLICIT INPUTS: 
NONE 


oo 


REaNLSSS 


IMPLICIT OUTPUTS: 
NONE 
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ROUTINE VALUE: 
NONE 
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DD DDO 


' 

' 

' 

' 

' 

i OUTPUT PARAMETERS: 
: NONE 

i 

i 

i 

i 

i 

i SIDE EFFECTS: 
NONE 

' 


SELES 


1 
T_SEL_INFO(.SEL DESC, DIR_SEL_DIR, DIR_SEL_NTV, DIR_SEL_LATEST); 
_FLAGSCD_IMAGE_ SCAN) = .FCAGS<O,1>; 

“FLAGSCD-HARD_STOP] = .FLAGS<1,1>; 


FLAGSCD_SCANNED_DIRSJ = FALSE; 


NOT .QUALCQUAL_INTE) AND 
-DIR SEL NTVCDSCSN_LENGTH) EQ. 5 
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10 
J 
18 
14 610 
15 611 
16 oi¢ AND 
+ tb ised -DIR_SEL_NTVCDSCSA_POINTER], 5, UPLIT BYTE (‘#,#;#")) 
» oi? DIR_FLAGSCD_SCANNED_DIRS] = .FLAGS<2,1>; 
1 £19 If .DIR_FLAGSCD_IMAGE SCAN) THEN DIR_SEL_LATEST = +1; 
§ $18 CHSFILLT-1, D_K-NLEVECS*ZUPVAL, DIR_SCANCIMIT); 
4 620 
5 e31 INCRA D FROM DIR_STACK TO .DIR_SP BY D_S_ENTRY DO 
$ ; BEGIN 
Hh 624 D: REF BBLOCK; ! Pointer to stack entry 
9 625 LOCAL 
6 § STATUS, : status return 
3 638 DESC: vECTORC2); ! Descriptor for directory string 
6 
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ENTRY RESET 
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R SPEC. Save R2,R3,R4,R5,R6,R7 
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/FASTSCAN Fast file scan 18.54 -1984 23:56: AX-11 Bliss-32 V4.0-74 P 7 
V0. -000 RESET_DIR_SPEC = reinitialize directory context 12-808-138e $7 39:33 YBACKUP’ SRE FASTSCAW.B3551 age ay 
64 8 8A 8 BICB2 #8, DIR_FLAGS + 2609 
19 FD70 cs 8 £0 BBS #1 QUAC+14- Is : om 
6 i BI 4 ch p _SEL_NTV, # _ £2612) 
: 
AB sOAF FA B6 23 0047 CMe CS ‘ » @DIR_SEL_NTV+4, P.AAG + 2613) 
50 08 ac 01 ; EF O04 EXTZV #2, #1, FLAGS, RO + 2615 
66 01 3 FO 0095 INSV RO, #3, #1, DIR_FLAGS : 
; 05 66 E SA 1S: BLBC DIR_FLAGS, 2$ : 2617 
O3AA C6 1 BO 005 MOVL #1, ~DIR_SEL_LATEST : 
24 FF OF 6E i 00 C 06 2$: MOVCS #0, (SPT, #=1, #36, DIR_SCANLIMIT > 2618 | 
52 at C6 $ MOVAB DIR_STACK, R2 : 2621) 
a 03A6 c6 D MOVL  ODIRTSP, RS : 
11 0007 BRB 11$ : 
50 0142 C6 SE 00077 3$: MOVAB DIR_STACK, RO : 2632. 
50 52 D1 0007C CMPL CD,,-«RO ; 
08 if 007F BNEQ 6 4$ : | 
6E 06 D 90081 MOVL #6, DESC > 2635 
04 AE FF72 CF 9E 00084 MOVAB P.AAH, DESC+4 + 2636 | 
16 11 OOO8A BRB 7$ > 2632. 
O3A6 «C6 52 D1 0008C 4$: CMPL 0D, DIR_SP > 2640 | 
06 12 00091 BNEG 46-55 : 
6E 02 A6 9A 00093 MOVZBL DIR_STRING, DESC + 2641) 
04 11 00097 RB 6$ : 
6E 66 A2 9A 00099 S$: MOVZBL 102(D), DESC > 2642) 
04 AE 03 A6 9E 0009D gs: OVAB DIR_STRING+1, DESC+4 > 264 
7E 50 8F 9A O00A2 7S: MOVZBL #807 -(SP) : 2649 
67 01 FB Bone CALLS #1, GET_VM 3 
28 = A2 50 D0 000A9 MOVL RO. 40(B) : 
7E 50 8F 9A OOOAD MOVZBL #80, =-(SP) > 2650) 
67 01 FB 00 B1 CALLS #1, GET vM ; | 
30 A2 50 p00 00084 OVL RO, 48(B) ; | 
F6 Ab OF 00088 PUSHAB DIR_SEL_NTV : 2659) 
38 Ag 9F 000BB PUSHAB 56(B) ; | 
24 Ad OF OOOBE PUSHAB 36(R2) : 2658. 
EE AG OF 990c1 PUSHAB DIR_SEL_DIR ; 2655 | 
10 AE 9F 000C4 PUSHAB Dest ; 
000000006 00 05 FB 000C7 CALLS #5, MATCH DIRECTORY ; 2659 
04 50 £9 OOCE BLBC STATUS 8$ : 2661 | 
23. =A 02 8 00001 BISB2 ae. 5(D) ; 
04 5 0 a 0005 8$: BBC #2. STATUS. 9$ > 2662 | 
23 «OA 4 88 00009 BISB2 #4. 35(D) ; | 
04 5 ; Fi 90Dp 9$: BBC a3. STATUS, 10$ : 2663, 
23. =A 8 000E1 BISB2 #8. 35(D) ; 
5 44 ag 9E OOOES 10$: MOVAB 6BiRe), D > 2621 
5 52 01 O00E9 11$: CMPL p R ; 
89 1B OOOEC BLEQU 3 : | 
04 OOOEE RET > 2666. 
; Routine Size: 239 bytes, Routine Base: CODE + OE6E 
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e scan 
T = find next file 
ZSBITL ‘FIND_NEXT = find next file’ 
GLOBAL ROUTINE FIND_NEXT= 

++ 


FUNCTION. DESCRIPTION: 
selection filespec. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
Directory scan context. 
QUTPUT PARAMETERS: 
ONE 
IMPLICIT OUTPUTS: 
Aang scan context. | 
the resultant string and f 
as oa VALUE: 


SIDE EFFECTS: 
NONE 


BEGIN 
LOCAL 
N: REF BBLOCK, 
D: REF BBLOCK; 
N = .DIR_NAM; 
D = .DIR_SP; 
DIR_STATOS = DIR_VERLIMIT = 0; 


f 
i 


Uneciite ARGH Well utese bas 


BACKUP.SRC JFASTSCAN.B32;1 


his routine searches for the next file matching the specified 


ag was found, the name block contains 


rue if a file was found, faise otherwise. 


' Local copy o 
! Local copy o 


a 
= 
_— he 


: If the directory stack is now empty, we have completed the MFD. 


iF .DIR_LEVELS LEQ 0 


THEN 
BEGIN 
NCNAMSB_RSLJ = 0; 
NCNAMSW_FID_NUM) = NCNAMSW_ 
N NAMSW~DID-NUM] = NCNAMSW_ 


ETURN FALSE; 
END: 


Return the MFD if requested. 
if TESTBITSC(DIR_FLAGSCD_INITIAL)) 
THEN 


Ht 
DID_SEQ 


NCNAMSW_FID_RVN 
NCNAMSW~DID-RVN 


“uu 
Oo 
eeee 


SUEUR 


FASTSCAN ast file scan Qc! 1984 23:56: AX-11 Bliss-32 V4.0-74 Page 59 
VOe-000 IND_NEXT = find next file 12-808=1 38 $7 :39:33 BACKUP. SRC JFASTSCAN 633.1 . (11) 
726 IF .DIR_FLAGSCD_SCANNED_DIRS] AND .D[D_NON_TERM] 
1 : ; 0g N 
¢ 7 : DIR_STATUSCD_STAT_VALID] = DIR_STATUSCD_STAT_SCANNED] = TRUE; 
7 8 RETORN TRUE; 
: 4 4 END; 
731 ; 
g § Loop until we find something or traverse past a possible match. 
734 WHILE TRUE DO 
735 BEGIN 
7 : LOCAL 
7 R: REF BBLOCK, ! Local copy of D_REC 
g 3 V: REF BBLOCK; i Local copy of D-vER 


F j 
F E 
740 
741 ' Push down to a lower peta | if necessary. This logic depends upon the 
rs } +4 | eben string in the name block being unmodified from the previous 
' call. 
4 if (.DIR GSCD Dstt N_FAIL Lgod OR .DIR_FLAGSCD_ROOT_MFDJ) 
; THEN nig iestaits C(DCB_DIR—SCAN 
oe 4 BEGIN 
749 4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
| 
4 
3 
4 
4 
4 
4 
4 
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: Push down the directory stack. 
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750 

751 

238 DIR -LEVELS = .DIR -LEVELS + 1; 

75 DIR mi = .D +-D_S_ENTRY; 

754 Dcb fi}. F 1680 ENUM = NENARSY. FID_NUM); 
755 se orete D-FIDJ, FID$W_SEQ) = NAMSW_FID-SEQ); 
756 LOCKCDED-FIDJ, FIDSW-RVN] = N NAMSW_FID-RVNJ; 
757 D_SAV_LEN) = .DIR_STRING(O); 

758 D-VBNI- = 1; 

759 

760 
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667 7 

668 7 i 

p34 764 IF .DIR_STRINGCO) NEQ O THEN IR. STRINGCO) = AMD STRINGLO) + 1; 
670 765 DIR_STRINGCO] = .DIR_STRINGCO) +” .NCNAMS$B_N 

671 76 END; 

676 76 

67 768 

674 769 ' Get a new chunk of directory if necessary. 

675 770 ! 

676 771 IF 

67 77 -DCD_REC] GEQA .DCD_BUF_L 

678 77 (.DCB_VBN) EQL 1 OR’. DEB” uaa eau -DCD_DIR_LEN]) 
679 774 THEN 

680 775 BEGIN 

681 ere LITERAL 

ORs 77 ATR_LENGTH= MAXU( 

6 778 SBYTEOFFSET(FHISW FttpRor ss 
684 779 SBYTEOFFSET(FHZ$W~FILEPROT) +0); 
685 780 LOCAL 


FASTSCAN Fast file scan bl -1984 23:56: AX-11 Bliss-3 Pa 0 
02-000 FIND NEXT = find next file 12-8 08-1 3c 97:29:33 BACKUP. SRC FAST Scan.os B32;1 oe 4% 
s 16 781 4 FIB: per ocK Ee iesc. LENGTH], ' F18 

3 1 7 ¢ 4 FIB_DESC:  VECTORL2 ' Descriptor for FIB 

: 1688 7 4 STATUS, ' Status vortepie. 

3; 1689 784 4 ise: VECTORES : _ cre 5 loc 

3 1690 785 4 HEADER: BBLOCK ctAtR SLENGT, ig Beginni ng of ‘ite header 
3; 1691 7 § 4 ATR_DESC: BBLOCKL1 J attributes List 

3 1696 7 4 

; 169 7 4 

3 1694 7 4 ' Access the current directory file. 

3; 1695 790 4 ' 

3 1998 791 4 F 1B. pesthyy s = £ esc LENGTH; 

; 169 03g 4 FIB- DESC 

3; 1698 793 4 CHSPILL (0 Fle e =tENGTH, none B); 

> 1699 794 & FIBLFIB Bs} Ac Acc cid F1BSM RECORD; 

: 1700 795 4 IF ,QUALCOUAL_IG Ines} N FIBLFIBSL_ACCTL] = FIBSM_NOLOCK OR FIBSM_NORECORD; 
3; 1701 £38 4 FIB riB$W_FID-NUN = .BBL cpp D_FIDJ, PID Su Wun): 

3 1708 797 & FIBLFIBSW_FID_SEQ) =. LOrKeD D-FIDJ, FID$W_SEQ); 

3; 17 798 4 FIBLFIBSW_ FID RVN) = LOCKLD d- FIDJ, FIDSW_RVN); 

3 1704 799 4 ATR_DESC g. 16,0] = ATR LENGTH; 

: 1705 800 4 ATR-DESCL2, 18.0) = ATRSC_HEADER; 

: 1706 B01 4 ATR-DESC 470-380 = HEADER; 

; 170 802 4 ATR_DESC(8,0 0] = 0; 

; 1708 P 2803 4 STATUS = c$afows 

3; 1709 P 2806 4 FUNC=]0$_ACCESS OR IOSM_ACCESS, 

3 1710 P 2805 4 CHAN=.DIR_CHAN, 

3; 1711 P 2806 4 10SB=10SB 

: 21g P 2807 4 Pi=F 1B_DESC 

> 171 808 4 PS=ATR-DESC); 

: 1714 809 4 IF .STATUS-THEN STATUS = .10SBCO); 

3; 1715 2810 4 

3; 1716 811 4 

3 1717 aig 6 ! If a privilege violation occurred and the file specification is 

: 1718 813 4 ! nonwild, try an ACP call in case the problem is an execute-only 

3; 1719 814 4 ' directory. 

: 1720 815 4 ¢ 

3: 1721 sais 4 IF 

$ Ise 281 4 STATES, Yr est con 3 SS$_NOPRIV AND 

3; 17 2818 4 NOT . COM_f Hae AND 

3: 1724 $38 4 NOT *pCD~ “uitp oN 

3 1725 820 4 4? BUF ~ADDRI Qa. 0 

3; 17 $ 821 4 

3 17 Hy 5 NREGIN 

: 1728 8 LOCAL : 

3: 1729 824 FIB_DESC: VECTOR(2) ! Descriptor for FIB 
: 17 825 1B? BBLOCKCFIGSC_LENGTH), | FIB 

: 1731 8 § FNA_DESC: VECT gue ' Descriptor for FINA 
3 17 § : NA: VECTOR(L86,BYTE); ' Buffer for ‘n.t:v' 
3: 17 8 

: 17 g 

: 1735 DCD_BUF_LEN] = 512; 

: 17 1 DED“BUF-ADDR] = GET_vM(512); 

3: 1737 § 

ie 

3; 17 4 ! Initialize the FIB. 

3: 1740 5 ‘ 

3: 1741 § FIB g-BeStto} = FIBSC_LENGTH; 

3; 1742 8 FIB-DESCL1) = FI1B; 


po 


AR 
FASTSCAN Fast file scan 15-Sep-1984 23:56: AX-11 Bliss-32 V4.0-74 
02-000 FIND_NEXT = find next file 122808-198e $9 539:33 YBACKUP-SRe FASTSCAN.B32;1 
+ 1743 CHSFILL(O, FIBSC_LENGTH, FIB); 
3 1744 § FIBCFIBSW_DID_NUA) = -BBLOCK(O DFID], FIDSW_NUM]; 
: 1745 40 FIBLFIBSW_DID_SEQ) = .BBLOCKLDLD_FIDJ, FIDSW_SEQJ; 
3 Eo t) FIBLFIBSW_DID_RVN) = .BBLOCKLOLD_FIDJ, FIDSW_R Fy 
: 18 rk 
3 1728 re: Initialize the filename. 
3; 175 o¢8 ENA DESCEO) = ZALLOCATION(FNA); 
: 175 4 FNA_DESCL1) = FNA; 
3 If P 2848 SFA 
: ree P 2849 SDESCRIPTOR('!AS; !uw'), 
: 1755 P 2850 FNA_DESC, 
s 1728 P 2851 FNA_DESC, 
3; 175 S26 5 DCD_TERM_DESC], .OCD_TERM_VER]); 
: 1758 Be 5 
: 1759 22 ? 
: 1760 855 ' Execute the lookup. 
: 1761 856 é ! 
3 1006 Pp 14 STATUS = $01]0W( 
3; 176 P 2858 ; FUNC=]O$_ACCESS, 
> 1764 P 2859 CHAN=.DIR_CHAN, 
; 1765 P 2860 5 10S8=10SB 
> 1766 P 2861 5 P1=F1B_DESC 
3: 1767 862 5 P2=FNA_DESC); 
: 1768 86 2 If .STATUS THEN STATUS = .10SBC0); 
: 1769 864 
: 1770 865 5 ‘ 
3 1771 866 5 ! If a no such file error occurred, simulate an empty efrectory. 
3 A: 867 5 ! Otherwise, simulate a single block directory that contains the 
; ag, He3 ; } desired entry. 
3; 1775 870 IF .STATUS<O,16> EQL SSS$_NOSUCHF ILE 
3: 1776 a 5 THEN 
3; 1777 § Le 6 G] 
3; 1778 873 6 DCD_DIR_LEN] = 0; 
> 1779 3874 6 STATUS = SS$_NORMAL; 
: 1780 875 6 END 
3: 1781 876 5 
Z res 877 6 BEGIN 
3: 178 878 6 LOCAL 
3 1784 879 6 L. ' Length of name and type 
3; 1785 8 6 P: REF BBLOCK; ! Pointer to entry 
: 1786 ; 1 6 
3; 17 ; 6 
3; 1788 883 6 ' Initialize directory stack context. 
3; 1789 884 6 ! 
: 1790 HH 6 11) athe ead | = 2; 
3: 1791 8 $ 6 DLD_VBN) = §' 
; 1736 8 6 DCD_DIR_LENJ = 1; 
3; 179 888 6 
3 1794 889 6 : 
; ite? Bot ? Initialize simulated directory entry. 
: 1799 89 6 L = (BBLOCKCDLD TERM_DESCJ, DSC$W_LENGTH] + 1) AND NOT 1; 
; 1798 4 6 P = .DLD _BUF_ADDRI; 
3; 1799 94 6 PCOIRSW_SIZEJ = .L + DIRSC_LENGTH - 2 + DIRSC_VERSION; 
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7 
file scan 1-56 “19 756: AX-11 Bliss-32 V4.0-74 
XT - tind next file aaa 1 $9529: 33 EBACKUP’SRe FAeTSCay.ogos1 
PCOIRSW_VERLIMIT] = .FIBCFIBSW_VERLIMIT); 
P[DIRSB-FLAGS] = g: 
4 DIRS cNAME COUNT = .BBLOCKCOCD_TERM_DESCJ, DSC$W_LENGTH); 
“BBLOCKEDED._ TERM Desc, DSC$W_LENGTH] 
goetock DCD“ TERM-DESCJ, DSCSA-POINTER), 
st. PCDIRST_NAME)); 
PCDIRSW_VERSION] = .0C6_TERM VER); 
PCDIRSW_FID_NUM) = .FIBCFIBSO_FID_NUM); 
PCDIRSW_FID-SEQG) = .FIBCFIBSW_FID-SEQ); 
PCDIRSW_FID-RVN] = .FIBCFIBSW-FID-RVN’; 
DCD _BUF LIM] = .P + DIRSC_VERSION; 
END; 
IF NOT .STATUS 
THEN 
BEGIN 
Report failure to access the directory. 
SIGNAL ( 
BACKUP$_OPENDIR, 
-DIR_DE 


-DEV_DESC, 
‘iin ee EQL 0 THEN MFD ELSE DIR_STRING), 


! Readjust context so that processing of the directory is 
aborted. 

DCD_DIR_LEN) = 0; 

END 


ELSE 
BEGIN 


! If there is not currently a buffer, this is the first chunk of 
! this directory. Determine whether the file is indeed a 
: directory, determine its size, and allocate the buffer. 


' 

IF .DCD_BUF_ADDR] EQL 0 

THEN 
BEGIN 
! Ensure that the file is, in fact, a directory. At this point 
' we know only that the tilename is ".DIR;1"". Use the portion 
! of the file header that was obtained during the access. 
' Compute the file length if valid. If inwalid, leave the file 
length zero to avoid processing the file. 
DCD_DIR_LEN) = 0; 
DIR-STROCLEV = .WEADERCFH2$B_STRUCLEV); 


J 
rae 85 


| 
| 
| 
} 
| 
| 
| 
| 
| 


BEGIN 


S333 


' Compute buffer length. Try to read the entire directory 


33 


at one time, but no more than DIR_BUF_COUNT blocks. 
However, for an ODS-1 directory on which a Latest-version 
scan is in progress, always read the entire directory. 


i 
i 
i 
ft 
bCD_BUF_LEN) = ,OCD_DIR_LEN] * 512; 


SESSaF 


-DCD_BUF LEN) GTRU DIR_BUF COUNT*512 AND 
NOT T.DIR_STRUCLEV EQL~1 AND .DIR_SEL_LATEST LEQ 0) 


N 
DCD_BUF _LEN) = DIR_BUF_COUNT*512; 


; H 7? 

FASTSCAN Fast file scan 15-Sep-1984 23:56: AX-11 Bliss-32 V4.0-74 p 
Ve FIND.NEXT = find next file Ve-8eb-1986 fiish8s83 — EeAcnup sae Sracrecancos3,1 sad th 5} 

; 1857 IF .DIR_STRUCLEV EQ 

3 1 3 9 5 THEN ~ wee 

; 5 4 4 BEGIN 

; i i 3 $ RECATTR= HEADERCFH2$W_RECATTR]: BBLOCK; 

:4 9 8 ? IF .HEADERCFH2$V_DIRECTORY) 

.4 959 7 THEN 

: ieee 3et BES-DIR_LEN) = ROT( RECATTRCFATSL.EFBLKI, 16) 

Py = ° . Py 

3 1Be? $e IF Re eatin FATS Ffgvted ao” 

; 1868 96 THEN OCD_DIR_CEN) = ofp DIR_LEN] = 1; 

> 186 964 D D_FPROJ : HEADERLE Hest ICEPROT); 

: 1870 965 DED“UIC) = .WEADE crHe L FILEOUNER : 

; 130) D D-VERLINJ = .BBLOCKCHEADERCFH2SW_RECATTR], FATSW_VERSIONS); 

: B78 ? eo 

> 187% $ SE 

: 1875 BEGIN 

: 1876 7 BIND 

3 1877 RECATTR= HEADERCFH1$W_RECATTRJ: BBLOCK; 

: 1879 

; 1880 7 -RECATTRCFATSB_RTYPE] EQL FATSC_FIXED AND 

3 1883 , THEN RECATIR FATSW-RSIZE) EQL NMBSC~DIRENTRY 

> 188 BEGIN 

> 1884 DCD_DIR LEN) = ROT(.RECATTREFATSL_EFBLKI, 16); 

> 1885 IF TRECATTRCFATSW reeytel FoL 0 

; 1886 THEN DCD_DIR_CEN) = .DL[D DIR_LEN) - 1; 

; 188 DED Feng) = [HEADERCFH1$W_FICEPROT); 

; 1888 DED"UIC] = .HEADERLFH1$8_OICMEMBER]: 

: 1889 (DCB_UIC])<16,16> = -HEADERCE HSB vicGrouP): 

: Hh 4 BCD _VERLIAI = .BBLOCKCHEADERCFHISQ_RECATTR], FATSW_VERSIONS); 

1s ae 

> 189% 4 

3; 1895 6 ! If the file looks Like a directory and is not zero length, 

: 139 ° allocate a buffer for it. 

:1 6 if .DCD_DIR_LEN] NEQ 0 

: : § THEN 

: 1 7 

3: 1 7 

3 1 7 

3 1 7 

3 1 7 

3 1 7 

3 1 7 

3 1 7 

+4 , 

| 3 

3 1 7 

3 1 7 


oovono 
a 


wnr—o 


a 7 


ron 


7 
le sc oe tite rr: Sen-198h 28:56:53 YAR I OL fag S2 v4 0-742 
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| FASTSCAN 
v04 


914 
S12 Allocate memory for buffer. 
3H pep. BUF ADDR] = GET_VM(.DCD_BUF_LENJ); 
91 END; 
351 
9 ¢ ! If we are not yet beyond the end, size the portion of the 
9 ? directory to be read on this pass and read it. 
5 if .DCD_VBN] LEQU .DCD_DIR_LENJ 
$ THEN 
ocein 
5 READ_ADDRESS, ! Address for current read Q10 
: PROC_LENGTH; ! Bytes to process this time 


Ww 


; Compute size of chunk to be processed on this iteration. 
PROC “BED BUF = MINUC 
-OCD_VBN] + 1) * sie ° 


DEB ) 
Bir PCB DARL = “ot p. BUF “ADDR + .PROC_LENGTH; 
ECT = DLD_V 


BIeae 


WOOOOOODOOOOOOO0O 


ptb- 


w 
~o 


! Loop to read the chunk of directory that will be erg ere on 
! this iteration. Because the chunk arene exceed 65555 bytes, 
! we must have a loop, though it is unlikely to be executed 
more than once. 


REREL 
VePwt 


5 


em a ek a Bk a a nk tk ad at 2 ot 2“ 6 
NSN NA AAAAAAAAAAAAAAASAAAAO AAI NINN F 4 


947 READ poostss = -DCD_ DRI; 
eee 06 WHILE. gnene A RESS™ PSsk ODED: BUF _LIM] DO 
950 04 COCAL 
951 § READ_LENGTH; ! Size of current transfer in bytes 
926 04 
95 048 
954 049 ! Compute size of this transfer. 
955 050 
956 051 READ aE MINU( 
957 036 
958 0 -DCD_BUF tim) = .READ_ADDRESS); 
959 054 
960 055 
961 B28 : Read in the blocks. 
396 05 
96 P 3058 STATUS = C$Q10W( 
964 P 322 UNC=10$_READVBLK, 

5 P 0 CHAN. DI _CHAN, 

P 1 10SB8=10SB 

96 P ‘ P1=.READ_ADDRESS, 
968 P pee D_LENGTH, 
369 064 P3=.DCD YBNI); 
970 065 READ ADDRESS = ~READ_ADDRESS + -READ_LENGTH; 


| 
| 
| 
| 


If no more directory is available, pop up to the higher directory. 
ft PCD RECS GEQA .DCD_BUF _LIM) 

BEGIN 

: Deallocate dynamic memory. 

- -DCD_BUF __ADDR] NEQ 0 


LESFASLSS 


FREE VC. DCD BUF LEN. DCD BUF ADDR); 
IF, BBLOCKLDLD_TERM_DESC ; DSCSA_POINTER] NEQ 0 


FREE_VM(DIRSS_NAME, .BBLOCKCD(D_TERM_DESC), DSCS$A_POINTER)); 
IF ,BBLOCKCDCD_NARE DESC), DSCSA_POINTER] NEQ 0 -s 


FREE_VM(DIRSS_NAME, .BBLOCKCDCD_NAME_DESCJ, DSCSA_POINTER)); 


NOUS WMO 
—CO@w 


—— at ee 


! Pop the directory stack. 


SOSCSCOSCSOSCOSSoSSoeSeoeo 
— 41 OO] 


Ronoronorororonty 


DIR_STRINGCO) = .DCD_SAV_LEN); 
CHSFILL(O, D_S_ENTRY, .DJ; 
DIR_SP = 6 =".B - D_§_ENThY; 
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FASTSCAN Fast file scan hese -1984 23:56: AX-11 Bliss-32 V4.0-74 Pa 5 
voe-b60 FIND NEXT = find next file 14-Sep-19 4 99:29:33 BACKUP. Re FAT SCAN {03951 ae 49} 
1971 DCD_VBN) = .DCD_VBN] + .READ_LENGTH/512; 
13/6 IF oot ATys THEN STATUS = eADSBE OS. 
197 | IF NOT .STATUS 
1974 $8 THEN 
1975 BEGIN 
1378 7 SIGNAL ( 
13 ie ain tmtiaaaate 
1979 074 iDIR.DEV DESC. 
1980 075 (IF .DIR_-STRINGCO] EQL O THEN MFD ELSE DIR_STRING), 
1981 Bre STATUS); 
13 Ore 
1984 07 ' Readjust context so that processing of the director 
1386 44 is aborted. “ . . 
198 08 D(D_DIR_LEN] = 0; 
1988 O83 T-Bar ten = 0; 
1989 EXITLOOP; 
1990 5 END; 
1991 END; 
136 END; 
199 
1998 090 ! D he di fil 
' Deaccess the director e. 
1996 i i : 
199 P cC$Qlow( 
1998 P FUNC=10$_DEACCESS, 
1999 5 CHAN=.DIR_CHAN) ; 
000 4 ND; 
001 0 END; 
$08 
00 098 
2004 
005 
006 
007 
008 4 
009 4 
4 
6 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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NOUS WM OOO 
MO OCONOuewnr 


Mronr 


? 
1 2Fhad ene te VERE TERE MPU, 
DIR_LEVELS = .DIR_LEVELS = 1; 


a ee] 
oo 
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o 
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—~ 
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If the directory stack is now empty, we have completed the MFD. 
if .DIR_LEVELS LEQ 0 
THEN 


“FID_NUM] = NCNAMSW_FID_S 
NCNAMSW-DID-NUM) = NCNAMSW"DID~S 


GIN 
" NAM$B_RSL) = j 
RETURN FALSE; i 
END; 


EQ] = NCNAMSW_F ID 
£0] = NCNAMSW~DID 


vad 93 


v0 
si 7 
er) Adjust pointers to the next entry in the directory. 
04 R = .D(D_REC); 
th y= DED-VERT: 
048 IF TESTBITCC(DIR_FLAGSCD_SCAN_FAILED)) 
049 THEN 
050 BEGIN 
051 IF .DIR_STRUCLEV EQL 1 
O36 THEN 
05 BEGIN 
54 WHILE TRUE DO 
Bee BEGIN 
037 } Advance the record pointer to the next (or first) entry. 
059 


if .R EQL 0 
TH 


R = .DCD_BUF _ADDR) 
ELSE 
BEGIN 
R = .R + NMBSC_DIRENTRY; 
V= V1; 


LAA 


a ed ad od wd dd wd od = 


If there are no more entries, exit the loop. 
if .R GEQA .DCD_BUF_LIM] THEN EXITLOOP; 


: If the entry contains a non-zero file number, it is in use. 
IF .RONMBSW_FID_NUM] NEQ 0 

BEGIN 

! If the selection ti Lospec selects latest version, 

! determine if this is the latest version, by scanning 

} the entire directory for a higher version. 


DCD_VER_COUNT) = 0; 


7 


FASTSCAN Fast file scan 15-Sep-1984 23:56: AX-11 Bliss-32 V4.0-74 P 7 
v04 a NEXT = find next file 12-808- 198 99:29:23 EBACKUP  SRe FASTSCAN.B32;1 age 9 
IF .DIR_SEL_LATEST LEQ 0 
THEN 


INCRA P 

FROM ,DCD_ BUF ADDR’ 

TO .DtD BOF ADDR] + 

BY NMBSC_DIRENTRY DO 
BEGIN 


oo 
CD: 


-DCD_BUF_LEN] = NMBSC_DIRENTRY 


cFeLer 


If 
0 eee Ae ) QL i foto near ) AND 
« (PLNMBSW NAMEJ+4) EQL .(RUNMBSW NAME J+4) AND 
° THEN eR ERS IONS GTRU .RCNMBSW_VERSION] 


VIEW 9 OONOUSWN—O 


3333 


eo 


noe 
DCD_VER_COUNT) = -32768; 
EXITLOOP; 
END; 
Exit the loop with a valid entry, and D_VER_COUNT set. 
EXITLOOP; 
END; 
END; 
END 
BEGIN 
WHILE TRUE DO 
BEGIN 
LOCAL 
NEXT_RECORD; ! Pointer to next record 


i ke ed ed od od ed 


LS USIEARUN SS SSVS ARAN LS SOVenRansSSeuenravee 


: Advance the record and version pointers to the 
next (or first) entry. 


if .R EQL 0 
R = .DCD_BUF_ADDR) 


ELS 
If .V NEQ 0 
THEN 


A chanehaheheas chchench okt heb nebebebebesaeavakaeds ddd db ab aap hananabaninasanananan rs 
VERRAN MSOMNANPUNIOSRDNEAR oe Soe oe 


BEGIN 
NEXT_RECORD = .RCDIRSW_SIZE] + .R + 2; 
V = 7V + DIRSC_ VERSION? 

IF .V LEQA .NERT_REC 
R=” «NEXT RECORD; 


ORD - DIRSC_VERSION THEN EXITLOOP; 


If there are no more entries, exit the loop. 
if .R GEQA .DCD_BUF_LIM] THEN EXITLOOP; 
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FASTSCAN Fast file scan 1S-se “19 256: AX-11 Bliss-32 V4.0-74 Pa 8 
v02-000 FIND.NEXT = find next file aa eeen She 3:88:83 exckbe these Rr Ytah 935.1 9 495 
3 214 7 6 
3 108 ; IF .RCDIRSW_SIZE] EQL 65535 
3 2146 THEN 
3 \¢? re 4 BEGIN 
; 14 tg f End of this block. Advance to next. 
; 128 66 7 R = ((.R = .DCD_BUF_ADDR]) AND NOT 511) + .DCD_BUF_ADDR] + 512; 
3 Bs bs ° 
: el 2 <3 ELSE 
3 } i me 4 BEGIN 
; 155 50 7 ' Point to where next record should start. Make some 
3 ; $ 5 4 } validity tests on the entry we are looking at. 
; 13 § 7 NEXT_RECORD = .RCDIRSW_SIZE] + .R + 2; 
3; 2159 54 7 F 
3 1? 3 : BEGIN 
; ee 5 .NEXT_RECORD GEQA ((.R = .DCD_BUF_ADDR]) AND NOT 511) + .DCD_BUF_ADDR] + 512 OR 
3; 216 258 8 ! Entry within block? 
3; 2164 59 8 “BED iney Site OR ' Length even? 
3; 2165 366 8 -RCDIRSW_SIZE] LSSU DIRSC_LENGTH + DIRSC_VERSION 
3 196 61 8 ! Long enough? 
3; 216 6¢ 8 THEN 
3; 2168 63 8 TRUE 
: $199 gs § ELSE GIN 
: 171 266 9 V = (.R + DIRSC_LENGTH + .RCEDIRSB_NAMECOUNT] + 1) AND NOT 1; 
3 te 267 9 e-RCDIRSV_TYPE] REQ DIRSC_FID OR ' Proper type code? 
3; 217 3268 9 V GEQA TC(.R = -DCD_BUF _ADDRJ) AND NOT 511) + .DCD_BUF_ADDR] + 512 - DIRSC_VERSI 
: 2174 269 9 ! Version éntry within block? 
3: 2175 $f0 9 END 
3 1% 7 7 END 
: $ih8 ote B THEN BEGIN 
: 2179 $i 5 : 
3 139 246 : Directory format error. Report it and quit. 
: 188 S SIGNAL ( 
3 Hb + 3 ; ACKUPS$_BADDIR, 
3; 21 .DIR_DEV_DESC, 
: 186 CIF .DIR_STRINGCO) EQL O THEN MFD ELSE DIR_STRING)); 
3; 21 
3 189 : Adjust context to avoid processing this directory. 
: 2191 R = .DCD_BUF_LIM); 
s 135 ‘ pcp _OIR_CENI = 0; 
: 219% 9 7 : 
3: 2195 90 7 
: 198 91 7 ' Found a valid entry. Exit the loop. 
3 219 38 7 ! 
3; 2198 95 7 EXITLOOP; 


a 


a. 


FASTSCAN 
v04 


SeSssess 


SS Sia tunbnease> oO 


NOU EWN OOO 


BEE FAWN NWI PIP PNININININID 2 2 Ot OOS SS S| OOO Oooo ooouono w 


PIPIPINIPININININIPYNINPSPYNININININS No PyPyNonofnonofnony 


Se at et tet ee eS ke 


PA 
WMEWN—O OO 
errs 


Bo Se Be Se Se Se Se Se Se Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Ge Se Ge Se Ge Ge Se Se Se Se Se Se Ge Se FF SF Se Se Ge Se SH Ss Se Se Se Se Se Ge Se Se Se Se Se Sees 


AAA.A.A. AAA. ANNAMALAI AAAI NIAAA NAINA NAIA AWWW 


MoPonoforonoefy 


50 


PUPP BE PUSPATI SSIS OP OP OP ODD TUT BP BB BBE PE EE PNW BF Pe F 


7 
file scan 8. $ep-1984 23:56: AxX-11 Bliss-32 
XT = find next file 1278 08-1 98 $7:29:23 BACKUP .SRCJFAS 1$¢ 
END; 
END; 
END; 

DED REC) = .R; 
DLD_VERJ = .V; 
END; 


} If an entry was found, finish processing it. 
if .R LSSA .DCD_BUF_LIMJ 
THEN 


BEGIN 
LOCAL 
RSA_DESC VECTORC2), ' Descriptor for RSA area 
AME : REF VECTORC, BYTE), ' Pointer to ASCIC nane typ 
VERSION, ! Binary version numbe 
FILE_NAME: VECTORC20,BYTE); ! Area to build ODS-1 filename 
' Get a pointer to the name.t yp a ~ 4 the version number. 
Initia ize the file ID in the e name bloc 


it -DIR_STRUCLEV EQL 2 


DED.V VER_COUNT] = .DCD_VER_COUNT) = 1; 
Pitt td by a NAMECOUNT] NEQ .BBLOCKCDCD_NAME_DESC), DSCS$W_LENGTH] OR 
AST oy COUNT), 


RCDIRS 
RATDIRS NAME COU 


“BBLOCKCBLD nNAME ation DSCSA_POINTER]) 


OFoly VER_COUNT] = 
BBLOCKCBCD_NAME esc), DSC$W_LENGTH) = 
CH HSMOV ( 


tht ty ej 


.RCDIRSB_NAME COUNT); 


RCDIRST 

», BBLOCKEDED _NAME_DESCJ, DSC$A_POINTER)); 

=" ACDIR NAME COUNT 

vEDTRSY RSION); 
DIR TVERLINIY = REDIR W_VERLIMIT); 
NCNAMSW_FID_NUM V BIRSU-F 1D-3e0)| 
NENAMSW-FID-SEQ) = .VCDIRSW~FID-SEQ); 
acta a 
eup THEN NCRAMSB_FID_RVNJ = .BBLOCKCDCD_FID], FID$B_RVNJ 
ELSE 

BEGIN LOCAL T; 
T = MAKE STRING. R FILE _NAMEL1)); 
FILE_NAMELO) = CHSFIND_CAC.T, FILE_NAMEC1], %C';") =~ FILE_NAMEC1) 
NAME~= FILE_NAME; 
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FASTSCAN Fast file scan 18.s8 -1984 23:56: AX-11 Bliss-32 V4.0-74 Page 70 
vor -000 FIND_NEXT = find next file 12-Sep-19 4 $7 :89:33 UBACKUP. SRE IFASTSCAN.B3 31 (11). 
; $ 1 VERSION = .RCNMBSW_VERSION); 

; ; NCNAMSW_FID_NUM) = + RENMBSU_F 1D NUM}; 

; 8 NUNAMSW_FID_-SEQ) = .RCNMBSW_FID_SEQ); 

3; 2e5 4 NUNAMSW_FID_RVN] = 1; 

3; 2260 5 4 END; 

3 iz 

H e§ 28 2 Initialize the resultant string in the name block. 

3; 2265 60 4 Ren -DESEED = ere Bes H 

3 2266 61 4 RSA-DESCC1) = .NCNAMSL_RSAJ; 

; 2267 Pp 6¢ 4 $FAO( 

HY 68 P 3365 4 SDESCRIPTOR('!ASC!ACI!AC; !UW'), 

3 2269 P 3364 4 RSA_DESC, 

; 70 P 3365 4 RSA_DESC, 

: 2271 B $6 4 -DIR_DEV_DESC, 

: Le: P 3367 4 (IF .DIR-STRINGCO) EQL 0 THEN MFD ELSE DIR_STRING), 
3; 2e7 P 3368 4 .NAME 

> 2274 69 4 VERSION); 

3 § 75 $59 4 NCNAMSB_RSL] = .RSA_DESCCO]; 

3 $76 71 4 INIT_NAMEBLOCK(.N); 

3: 227 i; 4 

; § 78 73 4 

3; 2279 74 4 ! Initialize the directory ID in the name block. 

3; 2280 $352 4 : 

3 3281 376 4 NAM$SW_DID_NUM] = .BBLOCKCDCD_FID], FIDSW_NUM); 

; at} 377 4 NCNAM$SW_DID_SEQ] = .BBLOCKCOCDO_FIDJ, FID$W_SEQJ; 

; 228 378 4 NCNAMSW_DID-RVNJ = .BBLOCKCDCD-FID], FIDSWIRVNI; 

> 2284 379 4 5 

3 Ssee $09 4 

3; 2286 81 4 ! Set the directory scan bits for the next iteration. 

3; 2287 356 4 } 

; $scs 383 4 DIR_STATUS = 0; 

3 2289 384 4 IF 

; $S05 385 4 -DIR_LEVELS LEQ D_K_NLEVELS=-1 AND 

3 2291 386 5 (IF INCNAM$B_TYPEJ EQ. 4 

g $3¢ 387 5 THEN ..NCNAM$L_TYPE] EQL '.DIR' 

3; 2e9 388 4 ELSE FALSE) AND 

> 2294 94 4 VERSION EQL 1 AND 

3 2295 90 : (.NCNAMSW_FID NUM) NEQ FIDSC_MFD OR 

3 soe 391 -NCNAM$B_FID_NMX) NEQ 0) 

3; 2297 44 4 N 

3; 2298 9 BEGIN 

3; 2299 94 

3 2300 95 STATUS ' Status variable P 
3 3 01 331 : DIR_DESC: VECTORC2]; ! Descriptor for new directory string 
38 3 . 

; 399 ! Note that this is a directory. 

3; 2305 400 2 : 

; 408 DIR_STATUSCD_STAT_VALID] = TRUE; 

; 2308 49 ; 

5 399 404 ! Generate the new directory string. If this is not the top level, 
; 311 met ; append a dot, and then append the directory name. 
3; 2312 109 DIR_DESCCO] = .DIR_STRINGCO]; 
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FASTSCAN Fast file scan 15-Sep AX-11 Bliss-32 v4.0-74 Pa 72 
v04 FIND_NEXT = find next file 14-Sep 7138 7: 2¢: 33 BACKUP. SRC FASTSC AN.8 O38. at Tf 
: 2370 465 ! Pop the directory stack. 
3; 237 re ! 
3 7 46 D = .DIR_SP; 
3; 237 468 4 END; 
: 74 rs 4 
3; 2375 470 4 
3 f of) : If this is image mode, the file always matches. 
: 2378 138 4 if 
3 79 474 & -DIR_FLAGSCD_IMAGE_ SCAN) AND 
; 2380 475 (NOT” .DIR_FLAGSCD SCANNED_DIRS) OR 
3 7? are NENAMSW_FID_RUMJ] NEQFIDSC_MFD OR 
; ; 47 -NCNAMS$B_FID-NMXJ NEQ 0) 
3; 238 478 4 THEN 
3; 2384 479 
; 85 480 IF .DIR srervane STAT_VALID) 
3 86 48) THEN D R_STATUSCD_ STAT_DIR_SEL] = TRUE; 
; 87 48 EXITLOOP; 
3; 2388 4835 4 END; 
3; 2589 484 4 
3 2390 485 4 
: 2391 486 4 ' Test for scan termination. 
; 9 487 4 : 
3: 239 488 4 IF 
3 2394 489 5 BEGIN 
$ Sen re : IF .DIR_STRUCLEV EQL 1 
; 391 “3 : ELS -V GTRU .DIR_SCANLIMITC.DIR_LEVELS-1] 
3 339 rh 5 IF .BBLOCKCDCD_TERM_DESC], DSCSW_LENGTH] EQL 0 
: 2401 496 FALSE 
3; 240 497 ELS 
: 240 498 5 eee SCAN( 
: 26404 499 2 wae to. NAMEC1), 
3; 2605 500 RSION, 
3: 2406 501 2 “Bat BcKE6TD_ TERM_DESC], DSCS$W_LENGTH) 
> 2607 50 BBLOCKCOLD cere. DESC]. DSCSA “POINTERS, 
: 2408 50 2 -DCD_TERM_VE 
3; 2409 504 END 
3 2410 505 4 THEN 
3: 2411 206 2 BEGIN 
3 “ig 50 IF .DIR_FLAGSCD_HARD_STOP) 
2: 241 508 5 THEN 
: 24146 509 6 BEGIN 
3: 2615 510 6 DIR pLAsstD SCAN_FAILED] = TRUE; 
> 2416 511 6 RETORN FALSE; 
3 2477 216 END; 
3 rie 51 
> 261 514 
3 ; ? a2 ; Adjust context to skip rest of this directory. 
: 26 g 315 ; D p REC) = wire? BUF _LIM); 
: 24 218 DCD“DIR_L = 0; 
3 2426 519 4 END? 
: 26425 259 4 
3: 2426 521 4 


ece——_———_- -—____ -- _———————— ————-  _  - * 


! If scanned directories are requested, and the directory was not 
: selected above, return it anyway. 


if pDER_FLAGSCD_SCANNED DIRS) AND .DCD_DIR_SCAN] AND .DCD_NON_TERM] 
EXITLOOP; 
END; 
END; 


8 
Fast file scan 1S-se -1984 23:56: AX-11 Bliss-32 V4.0-74 Page 73 
FIND NEXT = find next file 1228 08=188e $7539 :33 BACKUP SRE FAST SCAN 03951 ° (11) 
¢ : Match the selection file specification with the resultant string. 
4 4 IF 
5 4 BED _RE Cd LSSA we BUF _LIM] AND 
6 4 -DED"DIR MATCHES] AND 
4 (.DIR_SEC_LATEST GTR O OR .DIR_SEL_LATEST EQL .DCD_VER_COUNT]) AND 
8 (NOT .DIR FLAGSCD SCANNED_DIRS 
N ae Met Bra? NEQ’FIDSC_MFD OR 
0 -NCNAMSB_FID-NMX] NEQ 0) 
531 4 THEN 
5 § BEGIN 
H LOCAL 
2 : NTV_DESC: VECTOR(2]; ! Descriptor for n.tiv 
; Match the file specification. 
9 NIV DESCEO) = .NCNAMSL_RSA] + .NCNAMSB_RSLJ - .NCNAMSL_NAME]; 
0 NTV_DESCL1J = .NCNAMSL_NA : 
1 2 IF MATCH_FILENAME(NTV_DESC, OIR_SEL_NTV) 
; THEN 
6 BEGIN 
4 6 IF .DIR_STATUSCD_STAT_VALIDJ 
5 6 THEN DIR_STATUSCD_STAT_DIR_SELJ = TRUE; 
§ 6 EXITLOOP; 
5 END; 
8 4 END; 
9 4 
? 4 
6 
; 4 
4 
4 & 
5 4 
6 4 
a 
8 
9 
0 
1 
2% 


ab 4b 4b Abedh db dh Abd dh Abdh hh hh bh th ah sh sh sh sh ah ah ah ah ales) 
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FIND_NEXT = find next file Petia 47:38:33 — UBAckUecsneSvasrscan.039; 1 


10 FF7C ; 8} 07 cme RECATIRE2, #16 
60 82 AD 9 DF ROTL #16, RECATTR+8, (RO) 
8 OA : 3 TSTW RECATIReT2 
03 E BNEQ = 2 
60 D E DECL (ROD 
A FF76 CD gO EA 238 VW HEADER+10, 58(D) 
r’ FF74 CD 9A OO02FO MOVZBL HEADER*B, 69D) 
. Ab FF75. CD 6 MOVZBW HEADER+9. 62(D) 
406 98 AD B Fe ae novw HEADER+GS, 64(D) 
3 J 3 BEQL 278 
08 Ab 60 9 ASHL #9, (RO) go) 
00002000 = 8F 08 Ag pt OA CPL (6), #819 
01 00000000° FF 1 1 CPB R_STRUCLEV, rt) 
00000000' i} 08 3 Ist DIR_SEL_LATEST 
08 Ab 2000 F 3 358: MOVZWL #8192, 8(D) 
08 Ab DD B 26$:  PUSHL 8(D) 
ecg WA ae et hot? RO’ SSB 
18 Ab 14 As D1 9 278 CPL g0{0), 24(D) 
BO Ra BRE ie, ayo. m 
21 0200 co 3 3A MOVAB 512(RO0S, R1 
0 08 Ab D 4F MOVL 8(D), RO 
wh 83 fe 00886 Srrau Sag 
50 51 00 38 MOVL 1, RO 
6A 0c 8640 3 38 28$: MOVAB @12(D) CPROC_LENGTHJ, (R10) 
53 0c Ag DO 00362 MOVL 1bto), READ_ADDRESS 
6A 53 D1 00366 298:  CMPL = READ_ADDRESS, (R10) 
03 1F 00369 BLSSU 31 
0085 31 00368 308: BRW 8$ 
0 6A 3 C3 1$:  SUBL3. READ_ADDRESS, (R10), RO 
QOOOOFEOO BF 30 pi 3 CPL a0, 965024 
59 FEOO §«—8F «=3C «00378 MOVZWL #65024, RO 
5 50 D 80 328: VL RO, READ_LENGTH 
30 00000000' fF D 8 MOVL  DIR_CHANT RO 
OOO1FFFF F 30 DI BA CPL ne #1351671 
7E 7C 0039 CLRQ =< SP) 
7E D4 0039 CLRL = =< SP) 
146 A6 DD 0039 SHL 20D) 
2 DD 0039A PUSHL READ_LENGTH 
; D 0039¢ PUSHL READ“ADDRESS 
— 7c CLRQ.  =(SPY 
60 Db OOS PUSHL. Rede 
50 DD 003A PUSHL RO 
E D4 OO3A CLRL 5 ish) 
000000006 00 OC FB 003A9 CALLS #12, STA_Q1OW 
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; “11 Bliss-32 V4.0-74 
15-50-1964 $7:29:33 = FANT) FAS TSCAN.O 351 
ti -$ep-1984 11:53: BACKUP. SRC B32; 
V0L-000" TAS NEXT a Find next file 14-Sep 138 
ip t 44 33$:  CLRQ =(SP) 
7E 04 CLRL 0s = (SP) 
8) oe 
BD 4 PUSHL READ“ADDRESS 
— 7C 00380 CLRO 38 
ae 
0 0D c PUSHL R 
4 8 ¢ CLRL agp) 
0006 9F ; 4 8 CALLS #1 + <o4S1S$010u 
a: 3 3 08 D2 _— ADDL READ LENGTH, READ_ADDRESS 
Ht — 5 £5 0 be bIMtg Re 8000) 
$ Re $ E GLa 10SB, STATUS 
3 7 2. § O3E BLBC TATUS, 35$ 
* te i 6 ED 358: or STATUS 
+ EF 98 Coser | TSTB" DIR STRING 
wiper’ 33 O3F5 BNEQ Hite 
50 EC81 cr of 003F7 MOVAB MED, RO 
OF OE OSES 368: R_STRING, RO 
0 sonnet: aur fits. 
00000000" EF DD 00407 PUSHL 2 _DEV. 
¢ pS Sbebe PUSHL ACKUP$_READDIR 
we = pe b0245 CALLS 4 LIBSSIGNAL 
-mneaesnis 09 18 #3 D4 boc te CLR 24{p) 
» EF BG doce) 388: ADVE DIR CHAN, RO 
[or 4 a 0428 °  CMPL  RO,7#131671 
OOOIFFFF 8F 30 D1 tp sresu oH 
7E 7C 00431 ($B) 
7E 7C 00433 CLRO =($P) 
aa ne ee 
fe oe 0439 Ova #52, -(SP) 
“ 50 3 043C PUSHL _ 
; eS ti Ait #12, STA_Q10W 
000000006 00 o¢ Fe 4 CAL ie 
7E 7C 00449 39$:  CLRQ =<(SP) 
rE rt 44B CLR (SP) 
i ee 3 
ff As 451 MOVO #52, (SP) 
" 50 DD 0434 PUSHL RO 
; in be § tne #12, aa#SYS$alow 
nyenn 44 13 of bea 40$: CHL p. (R10) 
6A 1F O46 a 
b TSTL 12D 
“ Os B 0467 BEQL «6-418 
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; 
FASTSCAN Fast file sca -Sep- 256: 
‘vote FIND.NEXT = find next file 15-50-1964 $7526: 
7 08 A6 7D 00469 
| eee as 81: Comms 
OF ir .”té«éi 
28 A6 DD 00479 PUSHL 
re F 9A 0047 MOVZBL 
sommes BS Bae fie 
OE 468A  —‘BEQL 
0 Ae DD 048¢ PUSHL 
re 0 BF 9A O0GBF MOVZBL 
90000006 0 02 FB 00493 CALLS 
0 0 F 22 A6 90 0049A 43$: MOVE 
0044 8 00 6E 00 2c si MOVCS 
56 se 2 O06AA SUBL2 
coonnnas FF cone: GP EE |e 
AS 2S bocba BNEQ 
03 AB 94 004BC 448: CLRB 
6 AB D4 0048 CLRL 
a8 B4 o4ce CLRW 
C AB D4 004C CLRL 
A A8 004¢8 CLRW 
0382 31 004¢B BRW 
Bo oo RRR Be 
some Fo Eg ge 
01 00000000° FF 91 O04EQ 468: CPB 
B 12 O04E BNEQ 
57 0 O04E9 47$:  TSTL 
06 1 04EB BNEG 
57 OC Ab 00 004ED MOVL 
05 11 O04F1 BRB 
57 10 CO 004F3 48%: ADDL2 
59 D6 004F6 INCL 
10 a6 57 01 004F8 49%: CPL 
a a ots 
oF Pe bso BeoL 
42 A6 Ba 00502 CLAW 
00000000' ef D5 0050 TSTL 
4 1h 0508 BGTR 
" = 08 48 £D doats aot 
50 oc A 06 516 MOVE 
20 11 518 BRB 
06 A? 06 40 o1 O51¢ 508: CHPL 
eae 8 Oi oe 
OE a7 0€ ap ef 05 A one 
O5¢F BLEQU 
42 a6 8000 80 05 | Rov 
50 10 CO 00539 518 ADDL2 
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vOe-000" FINDNEXT =“find next file Egos GESSGEED  WAtelU SLs 82 weit :1 Page a4) 


AG 7 D9 6046 62$: MOVL RR, (D) : 3297 | 
04 Ab 3 D0 00607 MOVL VV, 4(D) : 3298 
10 Ab 1 00608 63$:  CMPL RR. 16(D) : 
3 F 0060F BLssu 648 : | 
5 « ARS SE Bocie oss: Rowan Seem). AIT : 
83 00000086" EF f 0618 CMPB D1R_SfRUCLEV, #2 ; 3349, 
48 1¢ 061 BNEQ 67$ : 
42 Ag 2 621 DECW $6(0) : 3320 
5 g A? 9A 00624 MOVZBL 5(R), RS : 3322 
4 C Ab 3 06 8 MOV 44(D5, R46 : 
5 4 : 62C CMPW Ss (RG), RS : 
: 060F BNEQ 65$ : 
04 B46 06 A? é 06 1 CMPC3) RS, 6(R), @4(R4) + 3325) 
0c 637 BEQL «6-_—«6$ : 
42 A6 BS 00639 658 CLRW 66(D) ; 3330) 
64 55 BO 0063C¢ MOVW RS, (R4) : 3331) 
04 Bé 06 A7 55 28 0063F MOVC3 RS. 6(R), @4(R4) : 3335 | 
5A 05 A? : 0645 66$ MOVAB 5(R), NAME ; 3337) 
6E 69 32 00649 CVTWL = (¥), VERSION : 3338) 
00000000" EF 02 A? BO 0064¢ mOVW (Rh, DIR_VERLIMIT : 3339) 
66 0 AJ BO 00654 MOVW (v), (RIT) 3: 3340) 
26 «AB 04 Ad DO 00658 MOVL  4(V); 38(N) + 3341) 
28 «AS 95 00650 TSTB = 40(NNS > 3343) 
39 1 00660 BNEQ 69 F 
28 «AB 20 A 9 00662 MOVB 2(D), 40(N) > 3344) 
32 11 0066 BRB 69$ F 3317 
ES AD 9F 00669 67$:  PUSHAB FILE_NAME+1 : 3348. 
57 DD 0066C PUSHL R : | 
000000006 00 92 FB 00666 CALLS #2 MAKE_STRING ; 
ES AD 50 8 3A 067 Locc §=«._«#59,_-T, FILE_NAME+1 : 3349) 
02 2 906 7A BNEQ  68$ F 
1 04 0067C CLRL sR : 
50 E5 AD 3 Q067E 68$: ROVAB FILE _NAME+1, RO 3 
E4 AD 51 50 8 0068 SUBB3 RO, R1, FILE_NAME : 
SA E46 AD 0068 MOVAB FILE NAME, NAME ; 3350 
6E OE aA? 32 00688 CVTWL  14(R3, VERSION F 331 
68 67 BO 0068F MOVW (Rd, (R11) 3 3 | 
26 AB 02 a7 B80 069¢ MOVW 2(RS, 38(N) : 3353) 
8 As 01 80 0069 MOV = #1, 40(N) : 3354 
F8 AD 02 AB 9A 0698 69$:  MOVZBL 2(N), RSA_DESC : 3360 
FC OAD 04 AB DO 006A MOVL 4(N). RSA-DESC+4 > 3361 | 
ge DD 006A5 PUSHL VERSION > 3369 | 
A BD 0647 PUSHL NAME : | 
00000000' FF 6A9 TSTB DIR_STRING : 
7 12 OO6AF BNEQ $ ; 
50 E9C7 cr 9 681 MOVAB MFD, RO : 
Bh 686 BRB 71$ : 
50 00000000" EF 9€ 00688 708 OV DIR_STRING, RO ; 
0 DD O68 71$ PUSHL R ; 
00000000" EF DD 006c1 PUSHL DIR_DEV_DESC ; 
F8 AD OF 006C7 PUSHAB RSA~DESC F 
F8 AD QF OO6CA SHAB RSA“DESC : 
F92 cf OF 6¢D PUSHAB x ; | 
000000096 00 7 £ D1 CALLS @ SYSSFAQ ; | 
03 A F8 AD 90 00608 VB SA_DESC. 3(N) : 3320 
58 DD 00600 PUSHL > 3371) 


8 
FASTSCAN Fast file scan 15-Sep-1984 23:56: AX-11 Bliss-32 V4.0-74 
02-000 FIND.NEXT = find next file 1279 08-13be $3528 :33 YBACKUP SRE FAST SCAN. 639; 1 
000000006 Q 01 FB O06DF CALLS #1, INIT_NAMEBLOCK 
1¢ Ab GE 00666 MOV 28(D), RO 
3A A 60 D GEA MOVL (RO), 42(N) 
—E A 04 A E MOVW 4(ROS, 46(N) 
990000 0° EF 94 OO6F CLRB = DIR_STATUS 
08 00000000° FF 1 of CMPB : R-LEVELS, #8 
F 1A 00 BGTRU $ 
04 3¢ Ag 91 007 CMPB : (N), #6 
1 if 7 BNEQ $ 
5249442E 8F 50 Bs D1 0070 CMPL a O(N), #1380533294 
F i 71 BNEG $ 
01 6 p 71 CMPL VERSION, ai 
A 12 0071 BNEG 5 
04 6B B1 0071 CMPW 3S s«(R11), #6 
0 if O71A BNEQ  73$ 
29 Ag 95 0071C¢ TSTB = 4&1 (ND 
03 12 0071F BNEQ 73$ 
00FO 31 00721 728 BRW 81$ 
00000000" EF 01 88 00724 73$ BISB2 #1, DIR_STATUS 
DC AD 00000000' EF 9A 007 8 MOVZBL DIR_STRING, DIR_DESC 
£0 AD 00000000' EF 9E 007 MOVAB DIRTSTRING*+1, DIR_DESC+4 
DC AD 05 007 TSTL DIR-DESC 
OF 13 007 BEQL 4$ 
DC =6AD «(D6 0074 INCL DIR_DESC 
50 00000000° cr 3 0074 MOVAB DIR“STRING, RO 
DC BD40 9 O074A MOVB #46, aDIR_DESCCROJ 
51 38 AS 9A OO74F 74$:  MOVZBL 59(N), R1 
50 00000000" EF 3 00753 MOV DIR_STRING*+1, RO 
DC BD40 4c «BB 1 ; 0075A VC3_-R1,-a76(N), @DIR_DESCCROJ 
50 38 «6 AB OCA 00761 MOVZBL 59(N), RO 
pc =D 50 co 0765 ADDL2 RO DiR_DESC 
56 44 Ab SE 00769 OVAB 68(R6),~D 
7E 50 8F 9A 0076D MOVZBL #80, -(SP) 
000000006 00 01 FB 00771 CALLS #1, GET vM 
28 AG 50 pO 00778 OVL RO (5) 
7E 50 BF 9A 0077C MOVZBL #86, -(SP) 
000000006 00 gi F 00780 CALLS #1, GET_VM 
30 Ab 0 pO 00787 MOVL RO, 48(B) 
9° 00000000' ai E9 007 BLBC DIR_FLAGS 75$ 
0 7 DO 0079 MOVL #7, STATUS 
1¢ 11 0079 BRB 76$ 
00000000° EF 9F 00797 75$: PUSHAB DIR SEL_NTV 
38 «=6A6 OF 0079D PUSHAB 56(B) 
34 AG 3F O7A PUSHAB 36(R6) 
00000000" EF 9F OO7A PUSHAB DIR_SEL_DIR 
DC AD 9F OO7A PUSHAB DIR-DESE 
000000006 90 5 FB OO7A CALLS #5, "MATCH DIRECTORY 
2 0 1 €1 O78 76$: BBC # STATUS. 79$ 
51 00000000" EF 00 0078 MOVL.  ODIR_SP, R 
00000099" EF 4 : 078 BISB2 #4, pif STATUS 
23. «AI 1 o7¢ BISB2so# (Ri) 
0B 0 €9 007¢ BLBC. STATUS, 77$ 
00000009" EF 8 007C¢ 1 $82 a8, bie STATUS 
2 As é 070 BISB2 #2. 35(B) 
04 5 3 ty 77$: BBC #2, ae ttys. 78$ 
23 As 4 88 00708 BISB2 #4. 35(D) 
2a 5 3 £1 OO7DF 78%: BBC #3. STATUS, 808 
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FASTSCAN Fast file scan 1Ses2 Sep- 
vOe-000 FIND_NEXT = find next file 14-Sep- 
00000000" EF oF cs 
pc )hOUdA F D 
000000006 98 9 4 D4 
E dB 
1D 00000000' FE 3 DE 92$ 
00000000" EF ve : 2 
03 00000000" EF 03 34 O8EE 93$: 
F752 31 garg 94$: 
Fg 23 «AG ED O08F9 958: 
F4 23. Ab 03 €1 OOBFD 
50 01 00 pote 96$: 
04 0090 
; Routine Size: 2310 bytes, Routine Base: CODE + OF84 


1 AX-11 Bliss-32 “74 
V3Re HF:88i23 | HaKe Ob hes eRe tat 285. 

PUSS RIG SEANT 

CALL ae. “Raren, FILENAME 

BLBC DIR. STATUS, 96$ 

B1 S82 , P “DIR_STATUS 

BBS Ae DIR_FLAGS, 95$ 

BRW 3 

BLBC 5(D), 94$ 

BBC #3, 350d), 948 

MOVL #1, RO 

RET 


] 9 
F ASTSCAN 13-Sep-1984 23:56:53 YANI1 BLisg-32 v4. 0-74 


file scan § Page $3 
DIR_DATA = free directory scan context 14-Sep-1984 BACKUP. SRC JFASTSCAN.B32;1 (12) 


ast 
REE 
: 2469 63 1 XSBITL ‘FREE_DIR_DATA = free directory scan context’ 
H rh 3 ! GLOBAL ROUTINE FREE_DIR_DATA: NOVALUE= 
: 267 66 1 44 
3: 247 67 1! 
3 24676 o8 1 ! FUNCTIONAL DESCRIPTION: 
3 of? +4 : This routine deletes the directory scan context. 
3; 267 571 1°! INPUT PARAMETERS: 
3 of8 i 1! NONE 
3 24 7 2a 
: 2480 74 1°! IMPLICIT INPUTS: 
3; 2481 7 Ba Directory scan context. 
: 248 ef8 1! 
3; 248 57 1 ! OUTPUT PARAMETERS: 
3 2486 578 1! NONE 
3 2485 579 1! 
; met 280 1 ! IMPLICIT OUTPUTS: 
3: 248 581 1! Directory scan context. 
: 2488 ote 3 
3 2489 583 1 ! ROUTINE VALUE: 
3; 2490 oe 1! NONE 
3: 2491 585 1! 
3: 249 586 1 ! SIDE EFFECTS: 
3; 269 587 1! NONE 
> 2494 rT 1! 
3 2495 3 1 !<- 
3; 2496 5 1 
3: 2497 591 BEGIN 
3 2498 236 
: rh a Free any dynamic storage that is currently allocated. 
3 2501 595 2 INCRA D FROM DIR_STACK TO DIR_STACK*D_K_NLEVELS*D_S_ENTRY=D_S_ENTRY BY D_S_ENTRY DO 
; 206 238 BEGIN 
$ ope 238 D: REF BBLOCK; ! Pointer to directory stack entry 
3 206 600 If .DCD_BUF_ADDR] NEQ 0 
: 250 601 TH 
3; 2508 60 FREE_VM(.DCD_BUF LEN]. -DCO_ BUF Aven?) 
: 209 605 IF ,BBLOCKCDED_TERM_DESC * DSCSA_POINTER] NEQ 0 
: 2511 605 FREE wecPines NAME, .BBLOCKCOCD_TERM_DESC], DSCSA_POINTER)); 
3 218 606 IF .BBLOCKCDCD_NAME_DESC), DSCSA_POINTER] NEQ 6 
: 218 on8 - FREE_VM(DIRSS_NAME, .BBLOCKCOCD_NAME_DESC], DSCSA_POINTER]); 
3; 2516 10 
3 2517 11 
; 218 \¢ Reinitialize the impure storage. 
; 2520 14 CHSFILL(O, DIR_END-DIR_BEG, DIR_BEG); 
; 2521 15 END; 


en SG 


9 
| FASTSCAN Fast file scan ib-so -1 256: AX-11 Bliss-32 v4.0-74 
oe FREE_DIR_DATA = free directory scan context 12-8081 38 $9 539:25 EBACKUP-SRe FASTSCAN.B3951 
OOFC 00 sENTRY FREE_DIR_DATA, Save R2,R3,R4,R5,R6,R7 
7 44444 2 Fr 9E MOVAB pie STACR, R7 
000006 9 E MOVAB REE_vM 
67 9 0001 MOVAB DIR_STACK, R2 
0220 4 BOVAG DIRISTACK #544, R3 
0c As D af 1$ sit 1g(D) 
7E 08 A 13 0 i MOva Sip) -(SP) 
66 02 FB 00023 CALLS He. FREE_VM 
28 OA p 98 2s TSTL 40(D) 
OA BEQL 3$ 
8 A2 po 99 B PUSHL  40(D) 
7E 0 af A 00 MOVZBL #80, -(SP) 
66 3 F $0 CALLS #2, FREE_VM 
30 A2 OD 035 3$: TSTL 48(D) 
0A 13 000 BEQL 4$ 
30 = A2 bo 0003A PUSHL  48(D) 
7E 50 8F 9a 000 MOVZBL #80, -(SP) 
66 02 FB 00041 CALLS #2, FREE_VM 
2¢ 44 Ag 9 50046 4$: MOVAB 68(R2), B 
5 52 D1 00048 5$: CMPL D, R 
CD 18 00048 BLEQU 18 
OSCC BF 00 6E 09 2C 0004D MOVCS #0, (SP), #0, #972, DIR_BEG 
FEAO ¢ 00054 
04 00057 RET 


; Routine Size: 88 bytes, Routine Base: CODE + 188A 


vw 
ow 
° 


we tails 
me ORME 


File 


3; Size: 

; Run Time: 255. 
; Elapsed Time: 724.4 
3; Lines/CPU Min: 911 

3 ponennes< Pura 26165 

3 4 Used: 875 pages 
3 eee ation Complete 


-$255$DUA28: CSYSLIBILIB.L32;1 


f 7 
15-Sep-1 
14-Sep-1 


Se 97:39:33 


AX=11 Bliss-32_V 
BACKUP. SRC FASTSC 


~EXTRN LIBSSIGNAL 


PSECT SUMMARY 
Bytes Attributes 
21 $e NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
6370 NOVEC,NOWRT, RD, EXE.NOSHR, LCL. REL. CON.NOPIC,ALIGN(2) 
Library Statistics 
qaccnese Syebelg “otecese Pages Processing 
Total ioaded Percent Mapped Time 
18619 196 1 1000 00:02.3 


COMMAND QUALIFIERS 


CaN. B3851 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:FASTSCAN/OBJ=OBJ$:FASTSCAN MSRC$:FASTSCAN/UPDATE=(ENHS$:FASTSCAN) 
6262 code + 2232 data bytes 
1$88°, ' 


‘ 


Page 48) 


IPMENT CORPORATION 
LAND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


